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TISHUG Sydney Meeting 
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TIsSHUG SHOP. 


with Percy Harrison. 


The attendance at our February meeting (the first for 
1995) was quite pleasing although a few familiar faces 
were nissing such as Geoff Trott, who had a tennis 
conmitnent which prevented hin from attending the 
neeting although he did pop in for ten minutes early in 
the norning to drop sone repaired equipment back for the 
owners. Peter Schubert was very conspicuous by his 
absence, which was a little surprising as he had 
indicated to ne a couple of weeks before the neeting 
that he had planned to be there so we hope that nothing 
serious has happened to Peter to keep hin and his systen 
away. 


We were also a few systems down so the computer 
activities were lacking a bit although Larry and his 
complete system was once again to be seen as he nanaged 
to get the day off from work. Don Gould was also kept 
very busy on our club TI which, hopefully, will be 
upgraded to two double sided Half Height Drives by our 
next meeting. 


The clubs PC was also set up and seened to be kept busy 
with a game called Rapture although we did manage to 
wrestle it away for a while to denonstrate the IBM/TI 
enulator progran to John Meldrun who apparently wants 
his PC screen to look like his old TI conputer. This 
program has proven to be somewhat popular among our 
nenbers who have taken the retrograde step of going over 
to the more readily available PC's. 


This nonth I will once again include a list of the TI 
nodules available fron the shop in the hope that soue of 
our newer nenbers nay want to add sone of then to their 
collection. 


TI MODULES PRICE $ 
Adventure Module and Cassette 12.00 
Adventureland Cassette 4.00 
Cart-writer Module 15.00 
Car Wars Module 8.00 
Disk Manager 2 Module 10.00 
Rarly Learning Fun Nodule 8.00 
Edu-pak Module 15.00 
Homework Helper Module 15.00 
Meteor Multiplication Module 8.00 
Munch Man Module 8.00 
Parsec Module 8.00 
Personal Record Keeping Module 8.00 
Reading On Module 8.00 
Terninal Enulator II Module 15.00 
TI Extended Basic Module 25.00 
TI Invaders Hodule 8.00 
TI Logo Module and Cassettes 15.00 
Touch Typing Module 8.00 
Tris Module 15.00 
Tunnels of Doon Module and Cassette 10.00 
Video Graphs Module 8.00 
PC HARDWARE PRICE $ 
3 Button Mouse 14.00 
Mouse Pad 3.00 
101 Enhanced Keyboard 30.00 
Nylon Screen Filter 14" Monitor 6.00 
Glass Screen Filter 14" Monitor 20.00 
Dustcover for 14" Monitor 7.00 
Dustcover for Mini-tower 7.00 
Dustcover for 80 Column Printer 7.00 
Printer Stand 10.00 
3.5 Floppy Drive Cleaning Kit 6.00 
5.25 Floppy Drive Cleaning Kit 6.00 


3.5 Diskette Storage Box (Holds 100) 10.00 
5.25 Diskette Storage Box (Holds 100) 10.00 


Printer Cable 6 Foot 6.00 
Power Split Cable for 3.5 Drives 6.00 
Power Split Cable for 5.25 Drives 6.00 
3.5 Disk Drive 1.44Mb 58.00 
CD Rom Drive 2 Speed 205.00 
CD16 Discovery Pack 420.00 
Sound/CD Speakers (Pair) 25.00 


Super I/O Card (2S/1P/1G and IDE) 20.00 


Above prices do not include postage. 


A full range of IBH compatible Pc hardware is available, 
including complete systems. Please contact me for all 
of your hardware requirenents, our prices are very 
competitive as we do not have any overheads. 


Bye for now. 
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TISHUG SOFTWARE 
BY LARRY SAUNDERS 


PAGE PRO IMPORT PREVIEW 


Previews files created with the WYSIWYG Columizer. 


ANALPAGE 23 Prog CATALOG 5 Prog 

Diskname P105 CONFIG 4480 CURSOR 5 Prog 

Used= 344 Free= 16 CUSTOMIZE 8 Prog  FIX2VAR 18 Prog 

GOFER 33 Prog GOFERXB 17 D 80 

This 18 GOFER, by Dan Gazsy, it is a must for any COFES 33 Prog I2PCONV. «= 33 Prog 
one who uses PAGE PRO. LOAD 2 Prog) MENUL 4d 80 
MENU2 3d 80  MENU6 4d 80 

PROGRAH OVERVIEW MIFLDR 8 Prog MODPAGE 24 Prog 

LOWMEM 33 Prog P2ICONV — 33 ‘Prog 


FCIN - 1 = Deletes character. 

FCIN - 2 = Turns ON Insert Mode. 

FCIN - 3 = Erases the string from the cursur. 
FCIN - 6 = Returns to the starting position. 


MEMORY IMAGE FILE LOADER 


Will load Page Pro 99, or any other Image file from 


disk drives 1 to 9. 
CATALOG 
Will catalog any disk/ram/hard drive, 1 to 9. 
PAGE PRO TO INSTANCE CONVERTER 
Converts Page Pro pictures to TI-Artist Instances, 
catalogs the disk first, them you can select (S) or 
deselect (D), when selecting is compeleted, press Q. 
INSTANCE TO PAGE PRO CONVERTER 
Converts TI-Artist Instances to Page Pro Pictures. 


FIX128 <<-->> VAR80 TEXT CONVERSION 


Converts either direction, primarily to aid in 
converting IBM text files over to the TI format. 


MODIFY PAGE PRO PAGE FILES 


Allows you to reassign drives for part or all 
pictures in Page Pro page file. 


WYSTWYG COLUMNIZER 


For columizing, creates two-column output files 
Of 66 lines for Page Pro. 


ANALYZE PAGE PRO FILE 


This option allows you to inentify the picture files 


associated with a particular PAGE file. 
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PPSCRI 54 Prog 


Disk#1: P106 
Used= 354 Free= 4 


GOFER DOCUMENTATION ADDENDUM 
ADDITIONAL MODULES : 


Since version 1.0 of GOFER was released, I've come up 
with a batch PCX to PP converter which no other TI 
program currently performs. Like all the other GOFER 
modules, it is dependent on the GOFER kernel being 
resident when invoked. It can be invoked in the same 
manner as any function of GOFER (see previous docs for 
loading) . 

Once selected, you are prompted to specify where to 
search (disk drive) for PCK files. Once a drive is 
selected, a catalog of all picture files 1s created and 
placed in a scrolling window. Program can only handle a 
max of 25 PCK files at a time. If their are more than 
25 on the source drive, they will be ignored. If no 
drive is selected, the window disappears and you are 
back at the main menu. 

Once in the scrolling window mode, use the &/X keys 
to move through the catalog. The $/D keys are used to 
select/deselect a file for conversion. Selecting a file 
will automatically copy the input file as the suggested 
Output file. You have the option to override the 
suggested name, refer to Keyboard Input Addendum for 
additonal cursor control. The Q key terminates the 
selection process. Last you are asked to identify the 
output drive for the pictures. Once this is satisfied, 
The window clears and it becomes a status window. The 
number of files to convert, the current input/output 
files and the state of the conversion will be displayed 
during the conversion process. Upon completion you'll 
be retumed to the initial prompt which asked you to 
identify the source drive. 

Once the conversion process commences, it wili 
analyze the PCX header and display some of the vital 
stats it contains. The most important items are: the 
horizontal and vertical size (in pixels) and the type 
(number of planes in the picture). In addition, you'll 


March 1995 


also be told what version of PC Paintbrush created the 
file. While Page Pro will only let you view 60 colums 
(480 pixels) across the page, many a PCX file will 
exceed that bound. This module will pemnit you to 
convert PCX files as wide as 150 columns (1800 pixels). 
There is no limitation on the vertical size of the file 
because of the manner used to convert the PCX. This 
program is not capable of dithering or half-toning (a 
process of converting color images to black and white), 
so any PCX file with more than one plane will not 
convert. Besides, this utility was intended to only 
port clipart over to Page Pro picture format. If you 
attempt to supply it with the identical name (drive and 
filename) for both the source and destination file, 
you'll receive an error. 

After the first PCX data record is read, you'll see 
the output dimensions of the Page Pro picture displayed 


in the output file area. As reads and writes are 
performed, brief messages will appear in the status 
area of the screen. If an error should occur, you'll 
get a message in the error section of the screen. Once 
you acknowledge the error (by pressing the ENTER key), 
the program will close all files and resume with the 
next conversion. 

Note: PCX files will generally yield quite large Page 
Pro picture files. The average number of converted 
PCX's that will fit on a D/S D/D disk are 10-15 files. 

If there is a question as to it's marketability, just 
look at the type of files that Ben Yates DEZIP unpacks. 
You'll quickly see that mich of it is either in TIFF, 
IMG, GIF or PCX format. BIW, the memory image loader 
(MIFLDR) will load the un-registered copy of DEZIP with 
no problems. Can't say the same for FunlWeb 4.31. 

The registered copy of DEZIP isn't as forgiving. In 
an effort to extend the DEZIP program to XB cartridge 
owners, Ben Yates has included the &/A utils resident 
in low memory as a loadable disk file for his program. 
However, he chose to append this file to the very end 
(which seems reasonable). After inspecting DEZIP, it 
was discovered that one of DEZIP's modules resides very 
high in extended memory (area used both by GOFER and 
FW). If this troublesome module were the last one to 
load, neither program would have a problem loading. 
Since this is not the case, the loader is overwritten 
before the program load process completes. 


PCK2 PP 33 Prog) PCK-PICQ1 29 D128 
PCX-PICO2 380128  PCK-PICO3 57 D128 
PCX-PICO4 30 D128 PCK-PICOS 37 D128 
PCK-PICQ6 33 D128 PCK-PICOQ? 32 D128 
PCX2PPDOCS 21d 80 PREVIEW 17 Prog 
WYSTWYG 27 Prog 


Diskname 0107 
Used= 358 Free= 0 


Line Editor program, this program will edit any DV80 
file no matter what size it is. 


CHARA 9 Prog  CHARA3 296 D 80 
EXEC 21 Prog LINEDITOR 32 Prog 


Disk#1:U108 
Used= 247 Free= 111 


SOUNDMAKER 


Programmed by Jim Peterson 
Dec. 1984 - copyright 1984 Tigercub Software, 


This program will help you to develop sound effects. 
The default values for each option will be those 
chosen, the previous time, so that you can easily 
experiment with modifying a sound. For instance, you 
can use the random option until you hear an interesting 
effect, then switch to selective to refine it. when you 
have perfected the effect, use the selective and save 
options to save it to disk as a MERGE format file. The 
MERGE file can then be converted to a RUNable program, 
Or MERGEd into another program, by MERGE 
DSK1. (filename) If you select 4 tones, remember that 
one of them must be a noise tone between -1 and -8. 
For bass tones, select the 4 note option. Give the lst 


and 2nd notes a positive value; the frequency and 
volume may be either audible or inaudible. Give the 3rd 
note a positive value below 1000 and a volume of 30, and 
the 4th note a 4 noise with an audible volume. 


TYPE WRITER 
This 1s a very simple very easy to use typewriter 


program. 
MAGICEM 
A program along the lines of Mass Transfer. 
CARD 
TI Cardfile is a index card program, a database with 
Only two fields: the title , or index, and the text. 
Rach file has space for about 275 files each. 
SOUND EXPERIMENT 


A sound making program. 


CARD 6 Prog CARDEDIT 22 Prog 
CARDFILE 27 Prog  CARDUTIL 24 Prog 
CHARAL 9 Prog LOAD 5 Prog 
LOAD/MAGIC 34 Prog MAGICFM 20 Prog 
ROOT 28 Prog} SOUND/EXP 15 Prog 
SOUNDMAKER 37 Prog TYPE 20 Prog 


FLL END OF ARTICLE 
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TISHUG SOFTWARE 
BY LARRY SAUNDERS 


“Diskname P109 
Used= 353 Free= 5 


Page Pro FX (EFFECTS) 


This utilities disk will enlarge, reduce, invert, or 
"ghost" Page Pro pics. 


Flipper 


This utility is used to nirror pics side by side or 
up and down. 


Rotation 


This utility allows a Page Pro Picture to be rotated 
90 degrees at a time. 


Stripper 


‘This utility renoves unused white areas around a 
picture, thus making the picture smaller. 


Font Editor 


This utility you can design or customize your own 
Line Fonts, Snall Fonts, or Large Fonts. You can load 
In any Page Pro Font (except Page Pro Headline Fonts). 

The Font Editor will allow you to alter a old Font 
or make a new font 


CARPENTER 33 I 13 HAPPYSUN 91 13 
LOAD 15 Prog MADHATTER 341 13 
PPEDIT 33 Prog PPEDIU 31 Prog 
PPEFX-V100 66 i254 PPF-V110 26 Prog 
PPR-V100 51 1254 PPS-V100 16 Prog 
TVREPAIRMN 39 I 13 


Disknane P110 
Used= 351 Free= 7 


Page Pro Pictures 


The first two are pictures, XMASLB is a picture full 
of Christmas Labels, Example listed below. 


TLOVEYOC 33 I 13 VALEN 140 I 13 
XMESLB 178 I 13 


Disknane AT111 
Used= 333 Free= 25 


Artist Font Maker 


This utility allows you to nake Artist Fonts, 
Modified a Font, or make a new font. It will allow you 
to make a new Font file or Apprend to a old font 
file. This program has three promps only, the first 
one is the file that you want to nake the Font fron 
(e.g. APPLE18), the second is the name of the Font you 
want it saved to, the third pronpt is what character 
it is. Make sure that you press the right character, 
if it 1s for e.g. a CAPTIAL ‘H’ press SHIFT M if ALPHA 
LOCK is not lock down. 


AFM 16 Prog ALDERHNEY20 25 Prog 
APPLE18 25 Prog ATHENS18 25 Prog 
CHANCERY18 25 Prog CHARA1 9 Prog 
CLAIRVX24 25 Prog DURANGO4O § 25 ~Prog 
FON12 25 Prog HU24 25 Prog 
LOAD 5 Prog MIKE24A 25 Prog 
HIKE24B 25 Prog ROOT 28 Prog 


SHADOW48 25 Prog 
Diskname P112 
Used= 302 Free= 56 
Page Pro Pictures 
HF 102 I 13 HEART 33 I 13 
HLANE2 100 I 13 HLANE2 67 I 13 


REL END OF ARTICLE 
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THEME FROM 
STAR TREK 


This program plays the theme fron Star Trek whilst 
displaying graphic pictures of the two leaders, Captain 
Kirk and Mr. Spock, it also displays the words to the 
music as it plays, it is quite enjoyable to watch and 


listen. 


If anybody would like a copy of this progran, if you 
have’nt the time to type it in please get in touch with 


me at one of the meetings. (ED) 


5 CALL CHAR(96, "0000201008" ) 
10 GOTO 100 

11 A,B,C,D,E,F,G,X 

30 CALL PICTURE :: CALL SOUN 
D :: CALL BEAMMEUP :: CALL C 
OLOR :: CALL BEAMDOWN :: CAL 
L KEY :: CALL CLEAR 

40 !@P- 

100 { KXKKEKKEREKERERERERERER 
110 ! * Theme from * 

1200! * "STARTRE K" * 
130 ! * TV Series Version * 
140 ! * by GENE RODDENBERRY* 
150 ! * and ALEX COURAGE * 
160 ' KKKRKKKEKEEKEEKERREREERRRR 
170 ! Programmed in Extended 
Basic by Ken Gilliland 

180 ! Send comments to: 543 
Riverdale #15, Glendale, CA 
91204 

190 CALL PICTURE :: GOTO 230 
200 CALL SOUND(A,B,C,D,E,F,G 
):: RETURN 

210 A=A/2 

220 CALL SOUND(-A,B,C,D,E,F, 
G):: CALL SOUND(-A,B*1.003,C 
,D*1.007,E,F,G):: RETURN 

230 FOR X=1 TO 2 :: A=600 :: 
B=392 :: C=30 :: D=220 :: E= 
30 :: F=131 :: G=25 :: GOSUB 
200 :: C=20 :: E=20 :: GOSUB 
200 :: F=196 :: GOSUB 200 :: 
GOSUB 200 

240 C=30 3: E=30 3: F=262 :: 
GOSUB 200 :: C=20 :: E=20 :: 
GOSUB 200 :: A=300 :: F=131 
>: GOSUB 200 :: C=30 :: GOSU 
B 200 :: A=600 :: C=20 250 D 
=294 :: GOSUB 200 :: C=30 :: 


F=30 :: GOSUB 200 :: B=392 : 
; C=20 :: D=208 3: E=20 3: G 
OSUB 200 :: F=196 :: GOSUB 2 
00 :: GOSUB 200 :: C=30 :: E 
=30 

260 F=262 :: GOSUB 200 :: C= 
20 :: E=20 :: GOSUB 200 :: A 
=300 :: F=131 :: GOSUB 00 :: 
C=30 :: GOSUB 200 :: A=600 : 
> C=20 :: D=277 :: GOSUB 200 
>: NEXT X 

270 CALL BEAMMEUP :: FOR A=9 
TO 12 :: CALL COLOR(A,14,2): 
> NEXT A :: GOSUB 280 : GOSU 
B 280 :: GOTO 1130 

280 DISPLAY AT(20,5):"be" :: 
A=1000 :: B=392 :: C=30 :: D 
=196 :: E=15 3: F=131 : G=20 
>: GOSUB 210 :: DISPLAY AT(2 
0,7):"yond" 

290 A=500 3: C=10 :: GOSUB 2 
10 3: F=196 :: GOSUB 220 :: 
GOSUB 220 :: E=30 

300 B=349 :: F=262 :: COSUB 
220 :: E=15 :: GOSUB 220 :: 
A=250 :: F=196 :: GOSUB 210 
>: GOSUB 220 :: A=500 :: D=2 
62 :: GOSUB 210 

310 A=1000 :: EF=30 :: F=131 
>: GOSUB 210 :: DISPLAY 3T(2 
0,12):"the" :: B=330 :: F=26 
2 3: GOSUB 220 

320 DISPLAY AT(20,16):"rin" 
>: A=666 3: B=294 3: F=196 : 
> GOSUB 210 :: A=334 3: B=26 
2 :: GOSUB 210 :: DISPLAY AT 
(20,20): "of" 

330 F=131 :: GOSUB 220 :: DI 


SPLAY AT(20,23):"the" :: 3=6 
66 :: B=247 :: GOSUB 210 :: 
DISPLAY AT(21,10): "star" 

340 A=500 :: B=185 :: C=30: 
> D=233 :: E=10 :: F=208 :: 
G=27 :: GOSUB 210 :: C=1 5 
350 GOSUB 220 :: F=156 :: G= 
20 :: GOSUB 220 :: DISPLAY 3 
T(21,14):"light" :: GOSE B 2 
20 :: C=30 

360 F=208 :: GOSUB 220 :: C= 
15 :: GOSUB 220 :: A=250 :: 
F=156 :: GOSUB 210 :: GO SUB 
220 :: A=500 :: B=262 :: GOS 
UB 210 

370 A=500 :: B=185 :: C=30 : 
> D=233 3: F=10 :: P=208 :: 
G=27 :: GOSUB 210 :: C=15: 
> GOSUB 220 :: F=156 :: G=20 
>: GOSUB 220 :: GOSUB 220 :: 
C=30 

380 F=208 :: GOSUB 220 :: C= 
15 :: GOSUB 220 :: A=250 :: 
F=208 :: G=27 :: GOSUB 10 :: 
GOSUB 220 :: A=500 :: GOSUB 
210 +: DISPLAY AT(20,3): "ny" 
ont 

390 4=500 :: B=392 :: C=30: 
> D=196 :: E=15 :: F=131 :: 
G=20 :: GOSUB 210 :: DIS PLA 
Y AT(20,6):"love" :: C=10:: 
GOSUB 220 :: F=196 :: GOSLB 
220 :: GOSUB 220 :: F=30 

400 B=392 :: D=220 :: F=262 
>: GOSUB 220 :: E=15 :: GOSL 
B 220 :: A=250 :: F=196 3: G 
QSUB 210 :: GOSUB 220 :: A=5 
00 :: D=294 :: GOSUB 210 
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410 A=1000 :: E=30 3: F=131 
©: GOSUB 210 :: DISPLAY AT{2 
0,11):"is" :: B=349 :: =262 
>: GOSUB 220 :: DISPLAY AT(2 
0,14):"van" 

420 A=666 :: B=330 :: F=196 
»: GOSCB 210 :: DISPLAY AT(2 
0,17):"d*‘ring" :: A=334 i: B 
=294 :: GOSUB 210 

430 F=131 :: GOSUB 220 :: DI 
SPLAY AT(20,24):"in" 3: A=66 
6 :: B=262 :: GOSUB 210 :: D 
ISPLAY AT(21,9): "star" 

440 A=500 :: B=196 :: C=30: 
> D=247 3: E=15 :: F=156 :: 
G=20 :: GOSUB 210 :: C=10: 
> GOSUB 220 :: F=220 :: GOSU 
B 220 :: GOSUB 220 :: C=30: 
> DISPLAY AT(21,13):" flight 
450 F=311 :: GOSUB 220 :: E= 
10 :: GOSUB 220 :: A=250:: 
F=220 :: GOSUB 210 :: GO SUB 
220 :: A=500 :: B=277 :: GOS 
UB 210 

460 C=30 :: F=156 :: GOSUB 2 
20 :: B=196 :: C=15 :: GOSUB 
220 :: F=311 :: GOSUB 20:: 
GOSUB 220 :: A=1000 :: F=220 
>: GOSUB 210 :: C=30 

470 DISPLAY AT(20,2):" i";"" 
480 F=156 :: GOSUB 220 :: DI 
SPLAY AT(20,7):"know" :: A=5 
00 :: B=370 :: D=220 :: F=14 
7 3: G=27 :: GOSUB 210 :: C= 
15 :: GOSUB 220 :: F=110:: 
G=20 :: GOSUB 220 :: GOSUB 2 
20 

490 C=30 :: F=147 :: GOSUB 2 
20 :: C=15 :: GOSUB 220 :: D 
ISPLAY AT(20,12):"he‘ll" :: 
A=1000 +: C=30 :: D=247 :: F 
=110 :: GOSUB 210 

900 DISPLAY AT(20,18):"find" 
510 D=277 :: F=147 :: GOSEB 
220 :: DISPLAY AT(20,23):"in 
"os: D=294 :: F=204 +: OSEB 
220 :: DISPLAY AT(21,3):"sta 
r' 

520 1-666 :: D=330 :: F=220 
>: GOSUB 210 :: DISPLAY 34T(2 
1,8):"clus" :: 3=334 :: D=37 
0 3: GOSUB 210 :: F=147 :: G 
OSUB 220 

530 DISPLAY AT(21,12): "tered 
"1 35666 :: D=392 :: COSUB 
210 :: DISPL2Y 21(21,19 j:"x 
each" :: 32500 :: D=440 :: F 
=139 3: GOSUCB 210 :: B=247 : 
» C=15 3: GOSLB 220 


540 F=196 :: GOSUB 220 :: @ 
SUB 220 :: DISPLAY AT(21,24) 
eMac! 
550 C=30 :: D=466 3: F=277 : 
: GOSUB 220 :: C=15 :: GOSUB 
220 :: A=250 :: F=196 ; GOSU 
B 210 :: GOSUB 220 :: A=500 
:: B=3ll 
560 GOSUB 210 :: C=30 :: Fel 
39 +: GOSUB 220 :: B=247 :: 
C=15 :: GOSUB 220 :: F=2 77 
¢: GOSUB 220 :: GOSUB 220 :: 
C=30 :: F=196 :: GOSUB 220 : 
: C=15 :: GOSUB 220 
570 A=250 :: F=139 :: GOSUB 
210 :: GOSUB 220 :: A=500 :: 
B=311 :: GOSUB 210 
580 DISPLAY AT(20,3):" love 
nett 6+ C=30 3: D=233 3: Fl 
56 :: GOSUB 220 :: B=262 °:: 
C=15 :: GOSUB 220 :: F=233 : 
: GOSUB 220 
590 GOSUB 220 :: DISPLAY AT( 
20,10):"strange" :: C=30 :: 
F=311 :: GOSUB 220 :: C= 15 
+: GOSUB 220 :: A=1000 :: C= 
30 :: D=262 :: F=233 :: GOSU 
B 210 
600 DISPLAY AT(20,18):"love" 
610 D=294 :: F=156 :: GOSUB 
220 :: DISPLAY AT(20,23):"a" 
+: D=311 :: F=311 :: GO SUB 
220 :: DISPLAY AT(21,6):"sta 
r" 
620 A=666 :: D=349 3: P=277 
+: GOSUB 210 :: DISPLAY AT(2 
1,10):"wo" :: A=334 3: =392 
:: GOSUB 210 :: F=156 :: GOS 
UB 220 :: DISPLAY AT(21,12): 
Man" 
630 A=666 :: D=415 :: GOSUB 
210 :: DISPLAY AT(21,16):"te 
ach" :: A=500 :: D=466 : F=l 
96 :: GOSUB 210 :: B=247 :: 
C=15 :: GOSUB 220 :: F=392 : 
: GOSUB 220 
640 GOSUB 220 :: DISPLAY AT 
21,21):"es" :: C=30 :: D=494 
+: F=196 :: GOSUB 220 : C=15 
¢: GOSUB 220 :: A=250 3: G=2 
7 2: GOSUB 210 :: GOSUB 220 
2: A=500 :: B=311 
650 GOSUB 210 :: C=30 :: G=2 
0 :: GOSUB 220 :: B=247 3: C 
=15 :: GOSUB 220 :: F=39 2: 
: GOSUB 220 :: GOSTB 220 :: 
C=30 :: F=196 :: GOSUB 220 
660 C=15 :: GOSUB 220 :: A=2 
50 :: G=27 :: GOSUB 210 :: G 


OSUB 220 :: A=500 :: B=3 11 
>: GOSUB 210 
670 DISPLAY AT(20,3):" 17:7" 
23 C=30 :: D196 3: Fe131 :: 
GOSUB 220 
680 B=294 :: C=15 :: GOSUB 2 
20 :: F=196 :: GOSUB 220 :: 
GOSUB 220 :: B=196 
690 DISPLAY AT(20,8): "know" 
2: C=30 :: D=349 3: F=262 3: 
GOSUB 220 :: C=15 :: GO SUB 
220 
700 A=250 :: F=196 :: GOSUB 
210 :: GOSUB 220 :: A=500 :: 
B=262 :: GOSUB 210 :: =1000 
2: C=30 3: F=131 3: GOSUB 21 
Q :: D=31l :: F=262 
710 DISPLAY AT(20,14):"his’ 
720 GOSUB 220 :: DISPLAY AT( 
20,18):"jour" :: A=666 :: D= 
294 :: F=196 :: GOSUB 22 0 
730 DISPLAY AT(20,22):"ney" 
2: A=334 3: D=262 :: GOSUB 2 
10 :: F=131 :: GOSUB 220 :: 
DISPLAY AT(21,10): "ends" :: 
A=666 :: D=247 :: GOSUB 210 
740 DISPLAY AT(21,15): "nev" 
750 A=500 :: B=185 :: C=30 : 
: D=233 2: Fe208 3: G=27 3: 
GOSUB 210 :: C=15 :: GOS UB 
220 3: F=156 3: G=20 :: GOSU 
B 220 :: GOSUB 220 :: C=30 
760 DISPLAY AT(21,18):"er" 
770 F=208 :: GOSUB 220 :: C= 
15 3: GOSUB 220 :: A=250 :: 
F=156 :: GOSUB 210 :: GO SUB 
220 :: A=500 :: B=262 :: GOS 
UB 210 
780 B=185 3: C=30 :: F=208 : 
: G=27 +: GOSUB 220 :: C=15 
>: GOSUB 220 :: G=20 :: GOSU 
B 220 :: GOSUB 220 :: C=30 : 
> F=156 :: GOSUB 220 :: C=15 
790 GOSUB 220 :: DISPLAY AT( 
20,3):" his™:™ 
800 A=1000 :: C=30 3: D=208 
>: F=208 :: G=27 :: GOSUB 21 
0 :: DISPLAY AT(20,9)}:"s tar 
Ns: A=500 :: B=330 :: D=196 
:: F=131 :: GOSUB 210 3: C=l 
5 3: GOSUB 220 
810 F=196 :: GOSUB 220 :: GO 
SUB 220 :: DISPLAY AT(20,14) 
s"Crek" :: B=220 :: C=30 :: 
D=392 :: F=262 :: GOSUB 220 
2: C=15 :: GOSUB 220 :: A=25 
0 
820 F=196 :: GOSUB 220 :: GO 
SUB 220 :: A=500 :: B=294 :: 
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GOSUB 210 :: A=1000 :: C=30 
:: F=131 :: GOSUB 210 :: DIS 
PLAY AT(20,19): "will" :: D=3 
49 :: F=262 :: GOSU B 220 
830 DISPLAY AT(20,24):"go" 
840 A=666 :: D=330 :: F=196 
>: GOSUB 210 

850 DISPLAY AT(21,10):"on" : 
> A=334 :: D=294 :: GOSUB 21 
Q :: F=131 :: GOSUB 220 :: D 
ISPLAY AT(21,13):"for" :: A= 
666 :: D=262 ::; GOSUB 210 


860 DISPLAY AT(21,16):"ev" 
870 A=500 :: B=220 :: D=247 
:: F=175 :: GOSUB 210 :: C=1 
5 :: GOSUB 220 :; F=349 3: G 
OSUB 220 :: GOSUB 220 :: C=3 
Q :: F=175 :: GOSUB 220 :: C 
=15 

880 GOSUB 220 :: A=250 :: GO 
SUB 210 :: GOSUB 220 :: A=50 
QO :: B=311 :: GOSUB 210 :: D 
ISPLAY AT(21,18):"er" 3: B=2 
08 :: C=30 :: F=165 :: GOSUB 
220 :: C=15 :: GOSU B 220 :: 
F=330 :: GOSUB 220 

890 GOSUB 220 :: C=30 :: Fel 
65 :: GOSUB 220 :: C=15 :: G 
QOSUB 220 :: DISPLAY AT(2 0,3 
y:"but"s"" 3: A=1000 :: C=30 
:: GOSUB 210 

900 DISPLAY AT(20,7):"tell" 
910 A=500 :: B=262 :: D=220 
:: F=175 :: GOSUB 210 :: C=l 
5 :: GOSUB 220 :: F=262 :: G 
OSUB 220 :: GOSUB 220 :: C=3 
QO :: F=349 :: GOSUB 220 920 
C=15 :: GOSUB 220 :: DISPLAY 
AT(20,12): "him" :: A=1000 :: 
C=30 3: D=247 3: =175 3: GOS 
UB 210 :: DISPLAY AT(20,16): 
"while" :: B=208 :: C=15::: 
D=262 :: F=23 3 :: GOSUB 220 
>: D=294 3: F=175 

930 DISPLAY AT(20,22):"he" 
940 GOSUB 220 :: DISPLAY AT( 
21,3):"wan" :: A=666 :: D=33 
0 3: F=233 :: GOSUB 210 

950 DISPLAY AT(21,6):"ders" 
2: A=334 :: D=349 :: GOSUB 2 
10 :: F=117 :: GOSUB 220 :: 
DISPLAY AT(21,11):"his" :: A 
=666 :: B=330 :: GOSUB 210 
960 DISPLAY AT(21,15): "star" 
970 A=500 :: B=220 :: C=30 : 
> D=392 :: F=131 :: GOSUB 21 
Q :: C=15 :: GOSUB 220 : F=2 
62 :: GOSUB 220 :: GOSUB 220 


:: C=30 :: F=196 :: COSUB 22 
0 

980 C=15 :: GOSUB 220 :: DIS 
PLAY AT(21,19):"ry" :: A=250 
>: F=131 :: GOSUB 210 : GOSU 
B 220 :: A=500 :: B=294 :: G 
OSUB 210 

990 DISPLAY AT(21,22):"sea" 
1000 B=233 :: C=30 :: D=466 
>: F=110 3: GOSUB 220 :: C=l 
5 3: GOSUB 220 :: F=220 :: G 
OSUB 220 :: GOSUB 220 :: C=3 
0 :: GOSUB 220 :: C=15 1010 
GOSUB 220 :: DISPLAY AT(20,3 
y3" rela 

1020 A=250 :: D=440 :: GOSUB 
210 :: GOSUB 220 :: A=500 :: 
B=277 :: GOSUB 220 :: DISPLA 
Y AT(20,7):"nen" 

1030 B=220 :: C=30 3: D=392 
¢: F=147 :: GOSUB 220 :: C=l 
5 :: GOSUB 220 :: F=220 :: G 
OSUB 220 :: GOSUB 220 :: DIS 
PLAY AT(20,10):"ber" :: C=30 
2: D=262 :: F=294 : GOSUB 22 
0 

1040 C=15 :: GOSUB 220 :: A= 
250 :: F=147 :: GOSUB 210 :: 
GOSUB 220 :: A=500 :: =349 : 
; GOSUB 210 

1050 C=30 :: F=196 :: GOSUB 
220 :: C=15 :: GOSUB 220 :: 
A=1000 :: F=147 :: GOSUB 210 
¢: DISPLAY AT(20,14):"re" :: 
A=666 :: B=247 3: D=294 3: F 
=196 :: GOSUB 210 :: A=334 
1060 DISPLAY AT(20,16): "mem" 
1070 GOSUB 210 :: F=196 :: G 
=27 :: GOSUB 220 :: DISPLAY 
AT(20,19): "ber" :: A=666 :: 
GOSUB 210 :: DISPLAY AT(20,2 
3):"me" 3; A=500 3: B=220 :: 
C=30 :: D=262 :: F= 131 :: G 
OSUB 210 

1080 C=15 :: GOSUB 220 :: F= 
196 :: GOSUB 220 :: GOSUB 22 
0 3: C=30 3: F=262 :: GO SUB 
220 :: C=15 :: GOSUB 220 :: 
A=250 

1090 F=131 :: GOSUB 210 :: G 
OSUB 220 :: A=500 :: B=294 : 
: GOSUB 210 

1100 B=208 :: C=30 :: E=13 : 
: F=131 :: GOSUB 210 :: DISP 
LAY AT(20,1):7":™" 

1110 C=15 :: E=17 :: GOSUB 2 
20 :: F=196 :: E=23 :: GOSUB 
220 :: E=27 :: GOSUB 22 0:: 


C=30 3: F=262 :: E=29 :: GOS 
UB 220 :: C=15 :: GOSUB 220 
:; A=250 

1120 F=131 :: GOSUB 210 :: G 
QSUB 220 :: A=500 :: B=294 : 
; GOSUB 210 :: RETURN 

1130 A=1000 :: B=220 :: C=15 
»: D=392 3: E15 3: F=262 :: 
GOSUB 210 :: G=30 :: OSUB 22 
Q 3: F=196 :: G=25 :: COSUB 
220 :: G=30 :: GOSUB 220 
1140 F=262 :: G=25 :: GOSUB 
220 :: FOR A=1 TO 200 :: NEX 
T A :: CALL BEAMDOWN 

1150 FOR A=9 TO 12 :: CALL C 
OLOR(A,14,1):: NEXT A :: DIS 
PLAY AT(1,3): "theme from the 
ty series": :" star trek" 
1160 DISPLAY AT(5,2):"nusic 
by alexander courage": :" ly 
rics by gene roddenberry " : 
; CALL BEAMMEUP 

1170 DISPLAY AT(20,2):"a pro 
gram by ken gilliland": : ;: 
>" want to hear it ag ain" 
1180 CALL KEY(0,A,B):: IF B= 
Q THEN 11380 

1190 CALL BEAMDOWN :: IF A=8 
9 THEN 100 ELSE IF A=121 THE 
N 100 ELSE CALL CLEAR :: RU 
"DSK1. LOAD" 

1199 !@P+ 

1200 SUB PICTURE 

1204 GOTO 1210 

1205 4,A5,B 

1207 CALL CLEAR :: CALL SCRE 
EN :: CALL COLOR :: CALL CHA 
R :: CALL HCHAR :: CALL VCHA 
R 

1208 !€P- 

1210 CALL CLEAR :: CALL SCRE 
EN(2):: FOR A=0 TO 14 :: CAL 
L COLOR(A,2,2):: NEXT A 

1220 RESTORE 1240 :: FOR A=1 
37 TO 143 :: READ AS :: CALL 
CHAR(A,AS):: NEXT A 

1230 FOR A=40 TO 88 :: READ 
AS :: CALL CHAR(A,AS):: NEXT 
1239 !@P+ 

1240 DATA 0000000000000101 ,0 
QO00071F 7F7FFFFF ,QOOOEOFCFFFF 
FFFF ,000000000080C0C ,000 000 
000001050F 

1241 !@P- 

1250 DATA 0000003E7F6B963B ,0 
QOOOOOOBOF 8FCFE ,00 ,03030707 
07070504 ,FF FFFFEFEQEODEC? 
1260 DATA FFFFFFFEQQ00073E ,C 
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bad 


OEOEOEOE060607 ,041F091B131F3 
ALB FSLFFFFOFOCO8 ,FF7E3F 3F1 
FOFOFOF 

1270 DATA 000000000000808 ,04 
00020202000002 ,CA8081 4000389 
1C2 ,D598141000936304 , 404 040 
404020C08 

1230 DSTA 181B0D1408040404 ,0 
7D8C7AAOOOOIOAE , SDAESC4EOALS 
O30F 80808080808 ,0100000 000 
000003 

1290 DATA 4242615051C9E4F3 ,0 
4740802421 408F2,80,02020201 
01000104 ,31 809CBF408C9260 
1300 DATA 224202029313272F ,0 
O00000080COA0D8 ,OC708F002F00 
EVFF, 381COF87F96OF8FF ,03 O7F 
CFCF0430008 

1310 DATA 80403C0302FA3641,1 
476B35BA1D60E1F , 307FFF7F7E61 
E242, 7FFFFFFFFEFC7CE9 ,C6 018 
0042040801¢ 

1320 DATA 7F7F7F7F7E7F7FFF , F 
FFFFFFPFFFFFFFF , 90E1COR4FOFO 
F3F9,8001010101818143 ,BF 5F5 
77108852244 

1330 DATA C4C4EORIDILALEOE,1 
FOFOFIF1F9POFBF , 20808 , FFBFBF 
7EFFFFPFFF, FOFAPAFDFEFFF FFF 
1340 DATA 4223A3D32205C9E8 ,8 
80C8626B5DD244C,0A170B13A441 
864, FEFEPEPEPE3E7F98 ,000 000 
0000010181 

1350 DATA 0000000000000000, 0 
0 

1360 CALL CHAR(128, "19480007 
97670598949141387A0900960189 
747900080910080130750020 304 
0504041") 

1370 CALL CHAR(132, "00016700 
A056869890198481714148174717 
4009759600600589A0D09004 894 
8000108") 

1380 CALL HCHAR(9,13,88,8):: 
B=12 :: FOR A=137 TO 143 :: 
B=B-] :: CALL HCHAR(10, B,A) 
23 NEXT A oss CALL HCHAR(10,2 
0,40) 

1390 CALL CHAR(89, "FFFFFFFFF 
FFEFFFF"):: CALL HCHAR(1,1,8 
9,256):: CALL HCH!R(17,1 ,89 
1256) 3: CALL’ VCHAR(1,1,89,28 
8):: CALL VCHAR(1,21,89,288) 
1400 B=12 :: FOR A=41 TO 48 
72 BB+] :: CALL HCHAR(11,B, 
A):: NEXT 4 

1440 B=12 :: FOR A=73 To 80 
>: BEBrl os: CALL HCHAR(15,B, 
A):: NEXT 4 
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1450 CALL HCHAR(16,13,81):: 
CALL HCHAR(16,14,74):: B=14 
>: FOR A=82 TO 87 :: B=B +1 
>: CALL HCHAR(16,B,A):: NEXT 
A 

1455 !@P+ 

1460 SUBEND 

1470 SUB BEAMMEUP 

1474 GOTO 1480 

1475 A 

1477 CALL COLOR :: CALL SOUN 
D :: CALL SPRITE :: CALL MAG 
NIFY :: CALL DELSPRITE 

1478 '@P- 

1480 CALL COLOR(8,2,2):: GOT 
O 1540 

1490 FOR A=1 TO 2 :: CALL SO 
UND( 50,8000 , 26 ,12000 , 26) 
1500 CALL SPRITE{#1,128,15,9 
8,97, #2,132,15,98,118, #3 ,132 
,15,65,97,#4,128,15,65,1 28) 
1510 CALL SOUND(50,8000*1.00 
§ ,18,12000*1 005,18) 

1520 CALL SPRITE(#1,132,14,9 
8,97 ,#2,128,14,98,128,#3,128 
,14,65,97,#4,132,14,65,1 28) 
1530 NEXT A :: RETURN 

1540 CALL MAGNIFY(4):: GOSUB 
1490 :: FOR A=2 TO 7 :: CALL 
COLOR(A,10,2):: NEXT A 

1550 CALL COLOR(14,10,2):: G 
OSUB 1490 :: FOR A=2 TO 7:: 
CALL COLOR(A,6,2):: NEX TA 
>: CALL COLOR(14,6,2):: GOSU 
B 1490 

1560 FOR A=2 TO 7 :: CALL CO 
LOR(A,5,16):: NEXT A :: CALL 
COLOR(8,2,16,14,5,16):: GOSU 
B 1490 :: CALL DELSPRITE(ALL 
) 

1565 {@P+ 

1566 SUBEND 

1570 SUB BEAMDOWN 

1574 GOTO 1580 

1575 A 

:: B=B+] :: CALL HCHAR(15,B, 
A):: NEXT A 

1450 CALL HCHAR(16,13,81):: 
CALL HCHAR(16,14,74):: B=14 
>: FOR A=82 TO 87 :: B=B +1 
>: CALL HCHAR(16,B,4):: NEXT 
1 

1455 !€p+ 

1460 SUBEND 

1470 SUB BEAMMEUP 

1474 GOTO 1480 

1475 A 

1477 CALL COLOR :: CALL SOUHN 
D:: CALL SPRITE :: CALL MiG 
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NIFY :: CALL DELSPRITE 

1478 !€P- 

1480 CALL COLOR(8,2,2):: GOT 
QO 1540 

1490 FOR A=1 TO 2 :: CALL SO 
UND( 50, 8000 , 26 ,12000, 26) 
1500 CALL SPRITE(#1,128,15,9 
8,97, #2,132,15,98,118,#3,132 
,15,65,97,#4,128,15,65,2 28) 
1510 CALL SOUND(50 ,8000*1.00 
5 ,18,12000*1.005,18) 

1520 CALL SPRITE(#1,132,14,9 
8,97, #2,128,14, 98,128 ,#3,128 
,14,65,97,#4,132,14,65,1 28) 
1530 NEXT A :; RETURN 

1540 CALL MAGNIFY(4):: GOSUB 
1490 :: FOR A=2 TO 7 :: CALL 
COLOR(A,10,2):: NEXT A 

1550 CALL COLOR(14,10,2):: G 
OSUB 1490 :: FOR A=2 TO 7 3: 
CALL COLOR(A,6,2):: NRX TA 
>: CALL COLOR(14,6,2):: GOSU 
B 1490 

1560 FOR A=2 TO 7 :: CALL CO 
LOR(A,5,16):: NEXT A :: CALL 
COLOR(8,2,16,14,5,16):: GOSU 
B 1490 :: CALL DELSPRITE(ALL 
1565 !@P+ 

1566 SUBEND 

1570 SUB BEAMDOWN 

1574 GOTO 1580 

1575 A 

1577 CALL COLOR :: CALL DELS 
PRITE :; CALL SOUND ;:: CALL 
SPRITE 

1578 {@P- 

1580 GOSUB 1610 :: FOR A=2 T 
Q 7 :: CALL COLOR(A,6,2}:: N 
EXT A :: CALL COLOR(14,6 ,2, 
8,2,2):: GOSUB 1610 

1590 FOR A=2 TO 7 :: CALL CO 
LOR(A,10,2):: NEXT As: CALL 
COLOR(14,10,2):: GOSUB 1610 
1600 FOR A=0 TO 14 :: CALL C 
OLOR(A,2,2):: NEXF A :: GosU 
B 1610 :: CALL DELSPRITE (AL 
L}:: GOTO 1660 

1610 FOR A=1 TO 2 :: CALL SO 
UND(50 , 8000, 26 , 12000, 26) 
1620 CALL SPRITE(#1,128,15,9 
8,97, #2,132,15,98,118, 43,132 
15 ,65,97,#4,128,15,65,1 28} 
1630 CALL SOUND(50,8000+1.00 
5,18, 1200041005 ,18) 

1640 CALL SPRITE(#1,132,14,9 
8,97, 42,128,14,98,128, #3 128 
114,65,97,#4,132,14,65,1 28) 
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1650 NEXT A ¢: RETURN 
1655 } @P+ 
1660 SUBEND 


2 END OF ARTICLE 


LEARN TO KNOW YOUR TI 


LESSON 24 


with Percy Harrison 


First, I must apologise for getting ahead of the lessons 
that I have given you up until this month as I have 
jumped the gun in using the GOSUB command in the answers 
to last months assignments which are included at the end 
of this lesson. In order to put things right, and so 
that you can better understand why I have used the GOSUB 
command, this lesson will explain to you the use of the 
GOSUB command in writing programs. 


Like GOTO, GOSUB causes a jump to another line number. 
The only difference is that in GOSUB the conputer stores 
the next line number following the GOSUB command on a 
stack. When the computer encounters a RETURN statenent, 
it pops the line number off the stack and returns 
control to that line. 


Subroutine calls can be nested at least 9 deep. 


The END comnand can be put anywhere in the progran and 
you can use as many end statements as you wish. All 
that END does is to return control to the command mode. 


Subroutines are useful not only in long programs but in 
short ones where "chunking" the task into sections leads 
to clarity. 


GOSUB was put into BASIC for making modules. ‘This 
lesson shows modular construction in a graphics progran. 
The sane subroutine which writes the letter "J", in the 
example that we will use, also erases it. 


The JUMPING J exercise will allow you to try nany 
different effects in the moving graphics display. 


LESSON 24 PRETTY PROGRAMS, GOSUB, RETURN 


Run this program then save it to tape or disk: 


100 REM MAIN PROGRAH 

101 REM 

110 PRINT "HOP TO THE SUBROUTINE" 
120 GOSUB 200 
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130 PRINT "BACK FROM SUBROUTINE" 
133 PRINT 

135 PRINT "HOP AGAIN" 

140 GOSUB 200 

150 PRINT "BACK AGAIN" 

190 END 

200 REM SUBROUTINE 

201 REM 

210 PRINT "IN THE SUBROUTINE" 
212 CALL SOUND(500,300,1) 

215 FOR T=1 TO 1000 

216 NEXT T 

220 PRINT "PACK YOUR BAGS, BACK WE GO" 
290 RETURN 


This is the skeleton of a long program. The nain 
progran starts at line 100 and ends at line 190. 


Where there are PRINT commands, you may put in many nore 
program lines. 


Line 120 and line 140 "call the subroutine”. This neans 
the computer goes to the lines in the subroutine, does 
them, and then cones back. 


The GOSUB 200 command is like a GOTO 200 command except 
that the computer remembers where it came from so that 
it can go back there as soon as the subroutine is 
executed, 


The RETURN connand tells the computer to go back to the 
next statement after the GOSUB statenent that activated 
it. 
WHAT GOOD IS A SUBROUTINE 
In a short progran, not puch. 
In a long program, it does two things: 

1. It saves you work. It saves space in memory. You 

do not have to type in the sane progran lines 


in different parts of the progran. 


2. It makes the progran easier to understand and 
faster to write and debug. 


MOVING PICTURES 


Type in the following "JUMPING J" progran, save it to 
tape or disk and then run it: 


10 REM *** JUMPING J #*x 
20 CALL CLEAR 

22 X=15 

23 Y=12 
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24 D=l 

25 FOR J=1 TO 5 

26 FOR I=1 TO 5 

30 CH=42 

31 GOSUB 100 

40 CH=32 

41 GOSUB 100 

45 Y=¥-D 

50 NEXT I 

55 D=-D 

60 NEXT J 

90 END 
100 REM 
101 REM === DRAW THE J === 
102 REN 

110 CALL HCHAR(Y,X,CH,5) 
120 CALL VCHAR(Y+1,%+2,CH,7) 
130 CALL HCHAR(Y+7,X,CH,2) 
140 CALL HCHAR(Y+6,X,CH) 
190 RETURN 


The picture is the letter "J". The subroutine starting 
in line 100 draws the "J". Before you GOSUB 100 you 
pick what character you want the "J" to be. Look at 
line 30 and at line 40. If you pick the space 
character, then the subroutine erases a "J" fron that 
spot. 


The subroutine draws the "J" with its upper left corner 
at the spot X,Y on the screen. When you change X or Y 
(or both) the "J" will be drawn in a different spot. 
Lines 22 and 23 say that the first "J" will be drawn 
near.the middle of the screen. 


The variable "D" tells how far the "J" will move fron 
one drawing to the next. Line 24 nakes "p" equal to 1, 
but line 55 changes "D" to -1 after 5 pictures have been 
drawn. A negative "D" makes the picture nove down. 


Line 45 says that each picture will be drawn at the spot 
where ¥ 1s snaller than the last Y by the anount D. 


EXERCISE 


Enter the JUMPING J program and run it. Then make these 
changes: 


1. Change the subroutine so it prints your ow 
initial. 
2. Change the character to a solid square. Make its 


colour blue. 


3, Change the "jumping" to "sliding" (so the 
initial noves horizontally instead of 
vertically). 


4. Change the starting point to the lower right 
hand corner instead of the middle of the 
screen. 


5. Change the distance the slide goes to 10 steps 
instead of 5. 


6. Change the size of each step from 1 to 2. 
7. Change the "sliding" so it slides uphill. Use 


X=X+D 
Y=¥-D 


8. Change the program so that the initial changes 
colour from green (colour 3) through all the 
colours to white (colour 16) as it jumps. 


Assignnent 24 


Write a short progran which uses subroutines. It 
doesn’t have to do anything useful, just print sone 
Silly things. In it put three subroutines: 


Call one of them twice from the main progran. 
Call one of them from another of the subroutines. 


ANSWERS TO LESSON 23 


Assignment Question 23-1 


10 REM MENU MAKER 
12 CALL CLEAR 

20 PRINT "WHICH COLOUR DO YOU LIKE" 
21 PRINT 

22 PRINT "<¥> YELLOW" 
23 PRINT "<R> RED" 

25 PRINT "<B> BLUE" 
26 PRINT 

30 CALL KEY(0,C,S) 

31 IF C=-1 THEN 30 

32 CS=CHRS(C) 

35 IF CS<>"Y" THEN 40 
36 C=12 

37 GOTO 80 

40 LF C$<>"R" THEN 45 
41 C=7 

42 GOTO 80 

45 C=5 

80 CALL SCREEN(C) 

90 FOR T=1 TO 500 

91 NEXT T 
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Assignment Question 23-2 


10 REM SILLY SENTENCES 

12 CALL CLEAR 

13 PRINT*SILLY SENTENCES® 

14 PRINT 

15 PRINT "WANT INSTRUCTIONS <Y/ND" 

16 PRINT 

18 GOSUB 200 

20 IF YS="¥" THEN 100 

21 PRINT*ENTER THE SUBJECT: (END WITH A PERIOD)" 
22 PRINT 

23 GOSUB 300 

33 PRINT "ENTER THE VERB; (END WITB A PERIOD)" 
34 PRINT 

40 GOSUB 300 

50 PRINT’BNTER THE OBJECT: (END WITH A PERIOD)" 
51 PRINT 

52 GOSUB 300 

85 PRINT S$ 

99 END 

100 CALL CLEAR 

110 PRINT*THREE PLAYERS ENTER PARTS OF A SENTENCE" 
115 PRINT"HO PLAYER CAN SRE WHAT THE OTHERS ENTER" 
120 PRINT"THR FIRST ENTERS THE SUBJECT® 

121 PRINT"(THE PERSON DOING SOMETHING) * 

125 PRINT"THE SECOND ENTERS THE VERB" 

126 PRINT*(THE ACTION WORD) ® 

130 PRINT"THE THIRD ENTERS THE OBJECT® 

131 PRINT" (THE PERSON OR THING TO WHOM" 

132 PRINTTHE ACFION IS DONE)* 

150 FOR T=1 10 2000 

151 NEXT f 

152 PRINT 

199 GOTO 21 

200 REM LOOK AY KEYBOARD 

210 CALL KEY(0,Y,S) 

220 IF Y=-1 THEN 210 

230 Y$=CHRS{¥) 

240 CALL KEY(0,¥,S) 

250 IF $<>0 THEN 240 

299 RETURN 

300 REM GET A WORD 

310 GOSUB 200 

320 IF YS="." THEN 390 

330 SS=S$ & YS 

340 GOTO 310 

390 s$=s$ & * * 

399 RETURN 


Renember when you type in the information requested by 
the program it will not show on the screen and if you 
don’t type in a period after each entry the progran 
will not progress to the next step. 


Bye for now. 


stig END OF ARTICLE 


fron Geoff Trott 
Letter from Plerre Garoche 


Towards the end of last year, I received a letter 
fron Pierre Garoche, who is our only nenber in France. 
Pierre often writes letters to me about sone of ny 
articles and always adds nuch to what I have said. This 
tine he also had reason to change a Load and Run (D/F 
80) file into a memory image (Prog) file for a game. 
His letter 1s as follows. 


10th November 1994 
Dear Geoff 
Your article in the November issue of TND came at 
the right time. Last week, I have built a nenory image 
fron a large program named ATC. Your son nay take an 
interest in ATC because ATC is a game. That makes two 
reasons to say that you had a good idea to issue your 
Techo-Time in TND #10. 


I received ATC fron Ian J. HOWLE, 3707 
S.W. Southern St., SEATTLE, WA. 98126 (206) 938-4065 in 
thanks for sone information I send him last year. In 
MICROpendium "reader to reader", Ian asked about bit map 
node in assembler. A not very good answer was given in 
MICROpendiun July issue, so I sent nore information to 
Ian. This year, in Septenber, Ian send ne the ATC 
program in thanks for ny help (he says). He also says 
that he 1s not able to upload the ATC file via moden. 
He is wondering if I could spread ATC around to any 
friend or BBS. I an not linked to a BBS but I have 
friends at TIsHUG and I shall send a copy of ATC both to 
Larry Saunders and Percy Harrison. 


Now, 1t is tine to tell you how I managed to build 
a henory image file fron ATC. 


Before I decided to buid a memory inage file fron 
the ATC file I know that ATC: 

- is a load and run compressed object code progran. 

- is not a self starting progran, its start name is 
START. 

- cannot be loaded from Funnelweb loaders, it 
overwrites Funnelweb code. . 

~ does not ruin the Funnelweb mail box. 


As [I do not have as much skill as you have to read 
tags in the code of a Load and Run file, I think it is 
better for me to analyse the CPU nenory when the progran 
ATC is loaded. 
- The starting address will be found from the 
REF/DEF table. 

- The nenor; addresses occupied by ATC code will be 
found if I clear CPU high nenory before loading 
ATC, so the ATC code can be detected easily. 


!March 1995 TISHUG NEWS DIGEST Page 12 


- Inspect ATC code to detect use of TI utilities 
and if workspace setting is done before any 
nodification of registers fron the start 
address. 


Fron this information, I can built a specific 
progran to save the occupied memory in suitable files. 
Fach one of these files will have a bit of room in front 
of the code. Next this bit of room will be patched, 
using a sector editor, to turn each file into a part of 
the wanted memory image. 


The file HI_MAKER gives in step by step forn, the 
process I used. SAVLR/O is the specific tool. On the 
floppy you will find also sone utilities. If you are of 
the opinion that sone utilities anong these may be of 
interest to TISHUG nenbers I beg you to advise the shop. 


Best regards. 


As usual, Pierre has approached the problen fron a 
programmer's point of view and written some assembler 
language programs to help him solve the problem. Here 
is the process he used. 
===> MI_MAKER Pierre Garoche, Nov 1994 

Last month I received a floppy disk loaded with a 
file naned ATC. It is a game that nust be loaded using 
the Editor Assembler loader option 3. The program does 


not start automatically and its start name (START) must 
be typed in. 


The Editor Assembler loader option 3 spends a lot 
of tine loading the file ATC, because ATC is a long file 
(171 sectors). A Load and Run loader is not a fast 
tool. It does a complex conversion of the code on the 
disk to load into memory. A nemory image will be more 
convenient in the present case, as it is the fastest 
fornat to load a progran and it is self starting. A 
memory image loader (Editor Assembler option 5) does not 
do any conversion, only a nove from the disk to memory. 


The problen springs fron the large part of high 
nenory where the progran is stored. The tools I could 
use to build a menory image from the loaded ATC progran 
overwrite a part of the nenory where ATC is stored. I 
had to build special tools: they are named SAVLR/O, 
MARKHH/0. I take the occasion to explain the nethod 
step by step. 


Short recall 


1/ what 1s a nemory image? 
A memory image is a file or a bunch of files where 
the code of a program is stored exactly as it is when 


stored in memory; a memory image is loaded using the 
Fditor Assembler loader option 5. 


2/ Memory image format. 
Fach file of the bunch (or the only file) begins with 
3 words in front of the program code. The 3 word 
block is named the HEADER; its 3 words are used by 
the loader to store in the right place in menory the 
code that is in the file after the header. 

- The third word contains the first menory address 
into which the code nust be loaded in the CPU 
memory. 

- The second word contains the number of bytes to 
load. 

- The first word is a flag that means: a zero value 
means this is last file of the memory image 
code; any other value neans there is at least 
one nore file to load. The non-zero value is 
usually >FFFF. 


Each file of a memory image must not be longer than 
8K (>2000 bytes = 6 bytes for the HEADER and >1FFA 
bytes for the code). (It can be longer than this but 
this is the normal maximum value generated by the 
SAVE programs.) If the program uses more than >1FFA 
consecutive bytes the memory inage is a bunch of 
files, with the name of each file the same except for 
the last character whose ASCII code is incremented in 
each file successively. 


3/ Menory image loaders. 

A nmenory image loader ends its work by setting the 
Program Counter of the micro processor at the first 
address of the program. As a result this address 
nust be the start point of the progran. A nenory 
image loader sets the workspace at >83E0 (GPL 
workspace). Among the various nenory TI  inage 
loaders, the TI option 3 loaders do not load the TI 
utilities into low nenory. It is the same for the 
Horizon RAMdisk loader, unlike Funnelweb, which 
brings in the TI utilities when the E/A loader is 
selected, and it is the same for Maxinen. 


The process 


To build a nenory image it is necessary to save the 
code of the program when it has been loaded into memory. 
Then the file header will be added to each file. 
Eventually the first file will be modified so the nenory 
image loaders links the start address of the progran and 
sometime the user workspace will be set by the 
nodifications. 

The nethod 


How to build a nenory image fron the ATC file? 


1/ Do an analysis of ATC code implantation in the 
nenory. 

2/ Save the ATC code and occasionally other code used by 
the program (the TI utilities) in suitable files. 
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3/ Add to each file the appropriate header. 


Analysis of ATC code implantation. 

a/ At first clear high nemory fron >A000 to >FFFB 
using the debugger tool (DEBUG>6000 or 
DEBUG>2676). 

b/ Next load the ATC program but do not run it. 

c/ Then reload the debugger to analyse both code 
inplantation and REF/DEF table. 


The three steps a, b, c, must be done at a _ stretch 
fron the Editor Assenbler nenu screen, uSing loader 
option 5 for DEBUG and loader option 3 for ATC. To 
clear high nenory, clear the address >A000 using the 
M command. Next copy the cleared byte from >A001 to 
>FFFB using the N command. Also you may clear low 
nenory from >3FFO to >3FFF, reading the REF/DEF table 
will be nore easy. 

Now return to the Editor Assembler nenu using the Q 
conmand. Fron this screen, load ATC, do not type the 
start name but press FCTN<9> (BACK) to return to the 
Editor Assembler screen and reload DEBUG. Now it is 
not difficult to find the memory field where the ATC 
program is stored and the address pointed to by the 
label START from the REF/DEF table. 


Results: 


ATC code starts fron address >AQ4C to the address 
>FFBB and the start address of the programm is at 
address >A050. The start point of the progran is not at 
the beginning of the code. At address >A056 to >A05C is 
stored 0200 01E3 0420 211C. This is the code of the 2 
instructions LI RO,>01E3: BLWP @VWTR. The progran uses 
the workspace set by the loader and also uses the TI 
utilities. This information will have to be taken into 
consideration this when the nenory image files are 
built. 


Code modification: 


When loaded, a Load and Run program starts using 
the user workspace (20BA to >20CF). It is different for 
a menory image progran that starts using the GPL 
workspace (>83E0 to >83FF). 

Sonething must be done to have the right workspace 
used and to start the program at the correct starting 
address. The code in the first nenory inage file nust 
begin with: 

LWPI >20BA O2E0 20BA 
JMP >AO050 1002 

This adds 6 more bytes and it must be placed just 

in front of the original ATC code. 


Saving the code 
Fach file must have a header and save the program 


code so each byte of the code will load into the right 
henory addresses. The nenory contents nust be saved in 
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files, with the first 6 bytes of each file not ending up 
as part of the actual memory image. This nay be 
illustrated as follows: 


file # NM === wececsceceeceeees 

file # ntl ssa ete e eee e eee eneee 
(=== are the 3 words that will become file header) 

(PYOGYAM COGE wei ccsssccceeeceeeeeeeeeeenneeeneeeerees ) 
The last file of the bunch is devoted to the TI 

utilities. As I am not a retailer, I put in the last 

file the low nenory code fron >2000 to >2675 as it 1s 

stored in memory by the Load and Run loader. 


Next, after the bunch of files are saved, using a 
sector editor, the first 3 words in each file will be 
nodified to become a header. In the first file the 
supplenentary code will be added in the same manner, so 
the first file nust start 12 bytes before the unmodified 
ATC code. 


To save all the files I have writen a little 
program: it is stored in low memory from address >2676 
so it does not overwrite any part of the mnenory to be 
saved. The name of this tool is SAVLR/O. It returns in 
one shot four files: CODEPART1, CODEPART2, CODEPART3, 
CODEPART4. AS I an wary of ny new tools, I decided to 
do a preliminary test. 

Loading high nenory in such a way that each word 
contains is its address, seened to ne a fine solution to 
test the SAVLR/O tool. This is done by loading at first 
the program MARKHM/O followed by the program SAVLR/O. 
Take ny advice and do the same operations. Then using a 
sector editor, a sheet of paper and a pencil look at the 
files CODEPART1, CODEPART2 and CODEPART3. 

Copy the first 10 words of CODEPART1 and the last 
word of the file. Copy the first 4 words of CODEPART2 
and its last word. Copy the first 4 words of CODEPART3 
and find the last saved address in the last sector of 
the file (the last word that is not zero). From these 
values, check that the memory is saved correctly with 
the required overlap for the header. 

Now thinking about the nodifications that will be 
done when the tool SAVLR/O will be used with a high 
nenory ATC filled, verify that the end of CODEPART1 fits 
well with the start of code in CODEPART2 when the header 
will be set. Is it the same for CODEPART2/CODEPART3? 


Is the last word of CODEPART3 the last address of ATC 
file? From all the information you have, try to find 
the correct header for each memory image file. 


I make you see the returned files clearly; now, it 
is tine to do the nain work: 

Load ATC using the Editor Assembler loader option 
3, do not run the progran, return to the Editor 
Assenbler menu and load the tool SAVLR/O using the sane 
loader. Answer the prompt and you will find 4 files 
CODEPART1, to CODEPART4. Copy each one using another 
name, ATC1, ATC2, ATC3, ATC4 and do the modifications in 
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the renamed files. These modifications are: 
In ATC1 the 6 first words will be turned into: 
FFFF 1FFA A046 02E0 20BA 1002, which is followed by 
the ATC code: 02E0 AOOC .... 
In ATC2 the 3 first words will be turned into: 
FFFF 1FPA C040, which is followed by the ATC code: 
0589 02389 0003 .... .... 
In 4TC3 the first 3 words will be turned into: 
FFFF 1F82 EO3A, which is followed by the ATC code: 
80C0 0000 0001 .... .... 
In ATC4 the first 3 words will be turned into: 
0000 0676 2000, which is followed by the low nenory 
code: A55A 2128 2398 .... .... 


The proof 


Fron the Editor Assembler memory image loader 
(optionS) load ATCl. Unlock the alpha lock and have fun 
using joystick #1. 


Note: The ATC progran, and ATC1/2/3/4 did not run 
well in my system when my RAMdisks are set to power-up 
ON. 

To call the Editor Assembler nenu, I power ON the 
console pressing the shift key to stop the reset at the 
TI HENU. Calling the Editor Assembler menu fron the 
HORIZON menu (pressing C key) brings a misfunction. I 
must say that I have not the Editor Assembler nodule but 
MAXIMEM which emulates the Editor Assembler module, but 
perhaps it gives not a total enulation. 


That is the end of Pierre’s article. I hope it 
provided another interesting way of converting display 
fixed 80 progran files into program or memory image 
files. I found it very interesting that he worried 
about which workspace was to be used. If you remember 
your assenbler language, the registers used by the 
processor are located in memory according to the 
contents of the workspace register. If the progran is 
written correctly, it should not matter where in menory 
the registers are located, as long as that part of 
memory 1s not used by the program. The only other 
reason for the actual workspace pointer being important 
would be that sone of its registers were assumed to 
already have certain values in then. This would be a 
bad way of programming and would certainly lead to 
problems if the wrong workspace were used. This may be 
the case here as the ACT program did not run correctly 
when I ran it fron the ROOT nenu progran. 


Pierre has provided sone useful utility prograns, 
including several progran versions of Debug which load 
into »>2676 (low memory), >6000 (cartridge space), >050 
(high nenory above Punnelweb nailbor), and >£000 
(towards the top of high nenory). He also provided an 
Fditor Assembler loader fron Barry Boone with its 
Extended BASIC loader and the other two programs he 
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nentioned, SAVLR/O and MARKHH/O. If you are interested 
in these programs, contact the shop. 


I also had an interesting letter fron Jin Banfield 
fron Armidale. He contributed a series of articles a 
few years ago and uses his TI99/4A in a nost unique way. 
He is building a long word-length computer and uses the 
T199/4A as the input and output for this conputer. He 
observed that not many of our members appeared to be 
interested in hardware, judging fron ny recent articles. 
I think that many may feel they would like to know nore 
about the hardware but are unable to cone to terns with 
all the detailed knowledge that is required. Jin has 
built his own disk controller and written the software 
for its DSR. He then had trouble when he tried to put 
all the disk controller programs in an EPROM at address 
>4000. It worked fine at other addresses but not there. 
The address range »>4000 to >5FFF is shared by all the 
I/O devices attached to the T199/4A. A particular 
device’s programs are switched into that memory space by 
using the CRO I/O of the processor. CRU uses only the 
address lines for output and its own special line for 
input to the processor. The only reason for problems in 
using the address range would be that another device 
like the RS232 card would be enabled at the same time. 
The operating systen checks all possible CRU addresses 
whenever some I/O is done until it finds the one it 
wants. 


Meanwhile, I have been looking at the best GIF 
viewing program I have cone across. It was written by 
Ton Brouwer of The Netherlands and is the easiest to use 
I have seen. All these programs display pictures which 
have a naxinun of 256 colours and do not do a good job 
with small changes in colour as with skin tones. They 
all seen to be written for the 9938 video chip while we 
now have the 9958 video chip. One of the enhancenents 
of the 9958 is a capability of the simultaneous display 
of 19268 colours so it should be possible to get better 
colours with the 9958 chip. Hy approach was to 
disassemble the program and try to understand how it 
works as I an not sure how GIF files store the data. I 
do know that a GIF file on a PC gives better colour than 
the same GIF file on the TI99/4A. I am some way down 


the track in ny quest, but I will leave this for another 
article. 


LLL END OF ARTICLE 
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EXPANDING A TI99/4A 
For RS232/5 and 6. 


by Ross Mudie, 3rd October 1994. 


The Local Area Network (LAN) which I set up for the 
Shahzada Endurance Horse Ride event, (see article in TND 
October 1994), needed just one more terminal to meet the 
operational requirenents of the event. The Server for 
the LAN was a TI99/4A with 2 x RS232 cards which allowed 
four terninals to be connected. The original design by 
Texas Instruments for the TI99/4A computer was for four 
to be the maximum number of RS232 ports. To connect 
extra terminals on the LAN, a non-standard approach has 
to be adopted to obtain extra serial ports. I am 
planning to use the same system again at the event next 
year with an extra terminal and sone inprovenents in the 
programs. 


Three nethods were considered to achieve the extra 
ports: 
a) Modify the CRU address and ROM (using an EPROM) in 
a TI RS232 card. 


b) Modify the CRU address and EPROM in an AT Multi- 
Function Card (AT HFC). 


c) A hardware logic device to share one serial port 
over two terminals. 


The last idea was least attractive because of the anount 
of hardware development which would be involved. Direct 
connection of each terminal to the server conputer 
allows all the control work to be done in software. My 
how the thinking of this once "hardware junkie" has 
changed! 


TI RS232 cards are not easy to obtain and nodification 
of the CRU address would probably involve a modified PAL 
chip. Not a very attractive option. 


To use the AT HFC would require component population of 
the RS232 parts of the AT MFC printed circuit board 
which already existed in the server computer, providing 
the Double Sided Double Densitity disk controller. 
After a short discussion with Geoff Trott, the expansion 
of the AT HFC was decided upon. Geoff offered to burn 
an EPROM to include RS232/5 and RS232/6 in the device 
names table in place of RS232/1 and RS232/2. The 
information which Geoff had available, showed that the 
CRU address for the AT MFC RS232 could easily be changed 
fron the normal >1300 to >1B00 by the inclusion of just 
one inverter in address line A4 feeding to pin 4 of IC 
U8. This also placed the parallel port of the aT HFC at 
CRU address 1(00. There were already 2 spare gates 
available in a 74LS00 which was previously used to 
overcome a problem in the disk controller of the AT HFC. 
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Just one of these spare gates could be used to provide 
the inverter. 


I decided to include a parallel port and 32K nenory 
expansion on the AT MFC since the nunber of spare slots 
in the server PE box 1s becoming rather tight. Percy 
Harrison from the club shop arranged for a kit of parts 
for the expansion project. 


After moving the 32K memory function into the AT HFC 
(which nade a second PE box slot spare and provided a 
32K memory card for use with another terninal), the 
allocated usage of slots in the server PE box is as 
follows: 


SLOT CARD FUNCTION CRU ADDRESS 
1. Bus expansion card. 
2. TI Serial card -RS232/ 1 and 2. >1300 
-Parallel no 1 (PIO/1). 
3. TI Serial card -RS232/ 3 and 4. >1500 
-Parallel no 2 (PIO/2). 
4, RAMDISK. Data storage >1000 


5. CorConp Triple Tech -Tine of day clock. >1D00 
-64K Printer buffer. 


6. Spare. 

7, AT MFC-Disk Controller. >1100 
-32 K Memory. 
-Serial ports RS232/ 5 and 6. >1B00 
-Parallel no 3. (PRINT) >1C00 

8. Spare. 


Once the component placenent and soldering was complete, 
it was time to test out the expanded AT HFC. Initially 
all appeared to work well. Using ny DSR PEEKER progran, 
I found that the serial port of the AT MFC EPROM 
contained the nanes MIDI, MIDI2, RITY, RITY2, VIATEL, 
VIATEL2, RS232, RS232/5 and RS232/6 at CRU address 
>1B00. At CRU >1C00, I found PIO and PRINT in the 
device names table. If I attempted to print on PIO, it 
was printed out by the PIO with the lowest card address, 
nanely, the card with CRU address of >1300. In the 
nulti device environnent where there are 3 identical 
device names, the device which is found first in the CRU 
search gets the job. To access the parallel port on the 
card with the CRU address of >1500 its device nane has 
to be PIO/2 and to get to the parallel port on the AT 
MFC its device name has to be the alternate nane of 
PRINT. Likewise, just specifying RS232 will give the 
job to the card with the »>1300 CRU address and the 
"/number" suffix must be used to access each RS232 
serial port. 


I found that the aT HFC worked just like the TI RS232 


card when it came to the programming departnent. My 
program opens each file in extended basic, in a FOR NEXT 
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loop, (to save menory), as follows: 


PUZZLE 
290 FOR S=1 TO 6 | | | , 
300 OPEN #$:"RS232/"&STRS(S)&" .BA=9600. EC. LF" , VARIABLE This months list a ane tech et around the subject 
295 

310 NEAT DQOPTNECERBIOCSDFICP2 
This opens 6 files, numbered 1 to 6, RS232/1 through to : I ; , , ; : : : : ; : : t : t ' 5 
RS232/6. The availability of /5 and /6 in the RS232 TLOPOVKBIUECHPSZEBOE 
part of the AT MFC EPROM made the job just that little rOToT 
bit easier. The reading from the serial port is UOKOHPWYZLNY ; , , ; . , D 
performed in a linked assembly routine which scans the r . ; : ; , : . . ; : ICILIWER 
inputs. Due to tne wired handshaking between the NOTERAUTININUEWEBFIC 
terninals and the server in the LAN, there is no problem YRPEREYEELOHDYIRGTLN 
with making any terminal wait until the server is ready 

; ; MDDWSUVGLVDESJTSLEGH 
to process the information. This very nicely dispenses PONOXTPHSPYDFESKALWU 
with the need to use interrupts. The extended basic VIBIGYCIEECEPPRNDEPD 
progran operates with CALL FILES(9) which allows 9 disk ENPFWHNCTAQNAAZFNESE 
files to be open simultaneously. There are 9 other non PUKPLELEGELROSKIJETLC 
disk files which are permanently open. 

OXQLEEGFSQKTPVNHBIRQK 

The Carrier Detect (CD) and Data Terminal Ready (DTR) RKLVATSIBLGOHUEFZYRS 
have not been provided for the second RS232 on the AT YYSRRGRAIWZCGYPLLGE! 
MFC. This was a hardware design rationalisation but NCRBSBGNWPUWXXP , : H , ; 
only in the interface to the RS232 port. The DIR and CD ; > : * \ . , ‘ , : : : : ; v0 ‘ _ 
are both available fron the THS9902 connunications 
controller. To provide these hardware handshaking lines , , 
so that a possible sixth terminal can be used, I will be Find these hidden words 
soldering a second HC145406 on top of 024 and the 
necessary wiring will be provided. HOW TO PLAY 
You will have noticed that a data rate of 9600 bauds is In this puzzle there are (20) words sonewhere, 
used between computers in the LAN, to get the maxinun horizontally, vertically, diagonally even backwards. 
possible speed. This is where problems of data 
corruption occured with the AT MFC due to a power supply GOOD LUCK 
problen. An article has been prepared on this subject. 
The problem of data corruption was easily fixed 2s will BRIGHTEYED BRISK CHILLY 
be found in the article. carsp OPER WEALTRY 
Once again its quite amazing what can be done with the LATEST HODERN NEW 
old 1199/44 at a reasonable cost with the support of NOVEL PURE RAW 
nenbers of the user group. My special thanks to Geoff RECENT REFRESHING = SPARKLING 
Trott and Percy Harrison for their assistance with thi a __ MINDY . ; 
setting up RS232/5 and RS232/6 for my TI99/4A LAN. 1s puzzle was compiled using Ashley Lynn’s progranne 


"word puzzle" which can be ordered through TIsHUG. 


MLZ] END OF ARTICLE 


JUST A ONELINER 
CED) 


DOOD DASHs0HoO 


Q. hich hand should you use to stir tea? Soa 
A. Neither. It is better to use a spoon. 
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BASCON 
from Stephen Shaw in England. 


There are nany ways of producing progran listings, and 
many ways of manipulating programs. This little article 
is to show you one progran, which has been nanipulated 
with three others, so you will see the original and 
three variations. Not shown here is the 28 colum 
format, produced by Tony McGovern’s COLIST progran, as 
that has been used many times in this magazine already. 


COLIST, UNBASHER, and NEATLIST are all available fron 
the User Group disk library, while SMASH is a commercial 
program available from Tenex. 


First the original progran- I am only showing a central 
portion of the program, rather than take up too auch 
nagazine space! 


1440 FOR X1=] TO 4 

1460 R(X1)=ASC(SEG$(PS ,X1,1)) 
1480 NEXT Xl 

1500 W=0 

1520 FOR [=1 TO 4 

1540 FOR J=1 TO 4 

1560 IF G(I)<>R(J)THEN 1640 
1580 W=Wt1 

1600 R(J)=0 

1620 GOTO 1660 

1640 NEXT J 

1660 NEXT I 

1680 W=W-B 

1700 RETURN 


Once this program has been SMASHed, these lines look 
like this: 


1440 FOR X1=1 TO 4 3: R(X1)=ASC(SEGS(P$,X1,1)):: NEXT X1 
:; W=0 3: FOR I[=l TO 4 FOR J=l1 TO 4 :: IF 
G(I)<>R(J)THEN 1640 

1580 W=W+1 :: R(J)=0 :: GOTO 1660 

1640 NEXT J 

1660 NEXT I :: W=W-B :: RETURN 


Which can be nade a little nore neaningful by running it 
through NEATLISTER: 


01440 FOR X1 = 1 T0 4:: 
R(X1) = ASC(SEGS(PS , X1 , 1)) :: 


IF G(I) 

01580 W = W + 
R(J) = 0:2: 
GOTO 1660 


1 : 
170 4:: 
< > R(J) THEN 1640 
L:: 


01640 NEXT J 

01660 NEXT I :: 
W=W-B:: 
RETURN 


VARIABLES USED IN MAIN PROGRAM 

in lines 1440 to 1700 only) 
01440 

01440 01660 
01440 01580 01640 
01440 

01440 

01440 

01440 

(The variable listing is available as an option with the 
listing, or on its own). 


-_-_- 


We can also resplit the SMASHed progran by using 
UNBASHER, which produces the following- note that the 
output has not been resequenced, but of course it could 
have been: 


1440 FOR X1=1 TO 4 

1441 R(X1)=ASC(SEGS(P$,X1,1)) 
1442 NEXT X1 

1443 W=0 

1444 FOR I=1 TO 4 

1445 FOR J=1 To 4 

1446 [F G(I)<>R(J)THEN 1640 
1580 W=W+1 

1581 R(J)=0 

1582 GOTO 1660 

1640 NEXT J 

1660 NEXT I 

1661 W=W-B 

1662 RETURN 


You may not have a lot of control over the format of a 
program you purchase or receive fron elsewhere- such as 
the library- but the utilities are available to change 
the format to something which may be easier to 
read/debug, or which perhaps occupies a little less 
henory space and runs a trifle faster. 


OL END OF ARTICLE 


LEXMARK PRINTER 
By Larry Saunders 


I have been using a IBM Excjet II inkjet printer for 
several months now, and I am getting go results from 
it using. TI-Artist, with the EPSOM-IBM emulation. 

With Page Pro, Banner Maker, and Poster Maker, they 
will work excellent using, 24 Pin and High Res, but 
they will print only garbage if you don't use Hi Res. 

One of the pictures printed on the IBM Excjet II, 
using a TI99/4A computer is the house on the cover of 
TiSHUG News Digest January/February 1995. 
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Programing The IBM Compatibles in Basic 


by B.v.Takach 


You have not seen my by-line in the TND for 
some time. This is not due to a chronic 
writer's cramp, nor have I abandoned the 
99/4A. The reason is simply that I did not 
have a worthwhile topic. Only politicians 
babble on ad nauseam boring one to death when 
it would be prudent to remain silent. 


Now I have something which may interest some 
of you. Some BASIC programing hints for the 
PC users. In fact this is my first program, 
which has not seen the light of day on the 

TI. It is a commercial program, which would 
be unsaleable in Extended Basic format. The 
listing is incomplete as the section executing 
the calculations and the printouts have been 
omitted for several reasons. 


Firstly, as most of you believe die casting is 
a new form of illegal gambling, I will spare 
you the disappointment at the end of a lengthy 
typing session when some incomprehensible 
gibberish is displayed on your monitor. 


Secondly, the program has a solid price tag on 
it. Remember the golden words of our 
erstwhile leader, "There is no such thing as a 
free lunch." You have to be satisfied with a 
free morning cup of tea! 


Programming the PC is not quite the enjoyable 
experience one is used to with the TI. The 
missing DISPLAY AT and ACCEPT AT statements 
with all the fancy bells and whistles makes 
the task much more complicated - as you will 
notice in a few minutes. 


The program starts at line 20000, the start of 
the subroutine line 50 has commanded. The 
subroutine ends with line 21300. 


[ include listing 1-50 and 20000-21300 here J] 


This segment will present the first two 
colourful screens. The first screen is the 
password input routine (lines 20000-21000). 
It will ask for the password (line 20500), if 
it is not kosher then you will have two more 
chances. You failed twice more? The routine 
will dump you and delete the program from 
memory. If it was saved in protected made 
("pgm name", p) then it cannot be saved or 
listed. This makes the program relatively 
secure, you really need John Paine on your 
side to crack it and change the password 
somehow. Naturally the password is case 
sensitive. It will reject upper case 
cnaracters if the stored password is in lower 
case. 


This subroutine may be used on its own or 
tacked on to any other program. 


Naturally line 21000 has to be changed to 
Suit. The second screen is just a message 
screen and a reminder to prepare the printer. 
Basic 1S very impatient when it comes to 
printout. A forgotten printer will result in 
a cryptic timeout error message and you will 
be unceremoniously tipped out of your program. 
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My habitual omission to load paper, press the 
"on line" key or to switch on the printer 
altogether, prompted me to include this 
screen, besides it looks very professional. 
Enthusiastic programmers could fill the empty 
centre field with some inspired graphics or 
text. Beware of porno/racist or sexist text 
to safeguard against any future court battle 
charged with some new fangled offence under 
the anti-discrimination act. Lines 21010 - 
21200 may be omitted if not needed or if the 
program does not use the printer. 


{ include the first two screen dumps here J] 


The actual program starts with line 100. 

Lines 300 - 365 

and subroutine 7300 - 7380 produce the 3rd 
screen page, which is the first actual program 
page. The input subroutine (7300 - 7380) is a 
simple Fred Flintstone inspired segment with a 
very limited safeguard against wrong entry, 
however for those who manage to make a boo- 
boo, a "wish to correct?" escape route is 
still open. This reflects my philosophy, you 
can make a mistake, but you do not have to be 
an idiot. 


Your attention is called to line 7326; the 
input$(n) function is not known to EX.Basic of 
TI. It is a more foolproof method of data 
entry than INPUT, however it can also cause 
some confusion, as you can see in lines 7330 
and 7335. The fancy footwork with -1 and +l 
was necessarv because of 0. VAL(n$) returns 0 
for any non digit string. The calculation 
section of the program calls for R12 to be 
between 0-3. It was easier to restore the 0- 
1-2-3 order here than edit some 50 odd lines 
elsewhere. 

[ include listing of lines 100 - 190, 300 - 

365 and 7300 -7380 here ] 


We have passed through a number of ncn-TI 
Basic features so far, but the real piece de 
resistance is in the data acquisition section 
of the pregram (lines 5000 - 6790). This 
almost 2 pages full of cede is necessary to 
overcone the handicap of the rncn-existent 
DISPLAY AT and ACCEFT aT features of PC based 
BASICS. 


The code is bullet proof, but apart froma few 
non-essential lines it cannot be abbreviated 
much. The lines which do not make sense are 
related to the calculation segments. One can 
wander up and down the screen using the 
up/down arrow keys, change the entered data at 
will and the screen is re presented again with 
the last entered data in the event of a rerun 
because the results are unsatisfactory. The 
Screen dump of the last two screen dumps show 
the presentation of the data on the monitor. 


[ include the 2 screen dumps here J 


The program is booted by a simple 2 line bat 
file (I named it BETA.BAT): 

@ ECHO OFF 

GWBASIC.EXE E.BAS 


Summary 


The presented program highlights the 
differences between TI-s EXTENDED BASIC and GW 
BASIC. GW BASIC lacks some important 
refinements of EXTENDED BASIC, however it also 


has a number of features not available to the 
users of EXTENDED BASIC. 
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In addition, GW BASIC has an added trap for 
the unwary. The program presented was written 
and used with GW BASIC Ver.2.01(1984). The 
screens will turn into a hopeless mess if it 
is booted through the 1988 vintage GW BASIC 
Ver.3.23. According to the user manuals of 
both versions, the program is fine. Apart 
from lines 20000 -21300, there are no 
compatibility problems. 

So far I have been unable to find out the 
reason for the non compatibility, but other GW 
BASIC users have also confirmed that certain 
programs will only run properly with the 
version it was produced by. 


You may encounter other frustrations during 
programing, when contrary to the user manual 
the PC refuses to obey your commands. 


I had a long and loosing battle with GWBASIC's 
MERGE option. Saving the program in ASCII 
code with the ,A option would not work. At 
the point of accepting defeat I tried to list 
the program to a disc file. There is no 
mention of this option in the 400 pages 
GWBASIC user's manual! 


Anyway this is how you can do it: 

LIST line number-line number, "Drive: FILENAME" 
for example LIST -500,"A:LISTING". Bingo, 
you created an ASCII coded listing in spite 
of the uncooperating GWBASIC. 


By the way, there is no need to use any 
extension when saving a basic program, GWBASIC 
is not fussy, the default is automatic and is 
always .BAS. 


1 REM SAVE"GRAVITY.BAS 
50 GOSUB 20000 


100 REM *** GRAVITY FEED SYSTEM PROGRAM; Copyright: 


BETA *** 
120 DIM Q$(12),V(12),H$(5),W$(5),OBE$(12) 

125 REM INPUT-ADATOK MEGNEVEZESEI 

130 Q$(0)=" 0. SPRUE AND POURING CUP HEIGHT HA mm 


135 Q$(1)=" 1. DISTANCE FROM CENTRE OF GATE TO TOP 
OF CAVITY mmn.:" 
140 OS (2)=" 2. NET HEIGHT OF THE CASTING 


170 Q$(8)=" 8. OTHER MASS PAST GATE NOT INCLUDED 


ABOVE g ......:" 

175 REM Q$(9)=" 9 \ANANNAAAAAAAAAAAANAANANANYA 
\NAAANANN 2 ee eee eee eed 

180 REM Q$(10)="10. NAAAAAAAANAAANAAAANAAAAAAANA 
VAVAAAAAAAAAVAAAAAN 


190 REM Q$(11)="11. AWM 


300 H$(1)="DATE " 

301 H$(2)="COMPONENT NAME OR ID. " 

302 H$(3)="PART NUMBER " 

303 H$(4)="CUSTOMER'S REF. " 

310 H$(5)="ORDER NUMBER " 

350 LOCATE 6,3:PRINT H$(1):LOCATE 6,37:PRINT 
DATUM$ : W$ (1) =DATUM$ 

360 FOR I=2 TO 5:LOCATE 5+1,3:PRINT H$(1I):LOCATE 
5+1,37:INPUT"",W$(I):NEXT I 

365 GOSUB 7300 

370 G=4:P=0:K=8:GOSUB 7100:GOSUB 5000 
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6260 


FOR I=P TO K 

IF VIZS=0 THEN OBE$(I)=" 0.00" 

LOCATE 5+1+G,3:PRINT Q$(1I):NEXT I: 

COLOR 0,2:FOR I=P TO K :LOCATE 5+1+G,60:PRINT 
OBE$(I): 

NEXT I 

I=P:T=1:H1=2:Y=60 
FF$=OBE$(I):H=LEN(OBE$(1)):X=5+1I+G:GOSUB 6000 
IF VV=1 THEN 5060 ELSE OBE$(I)=FF$ 

IF VV=2 THEN IF I=P THEN BEEP:GOTO 5060 ELSE 
I=I-1:GOTO 5060 

IF VV=3 THEN IF I=K THEN BEEP:GOTO 5060 ELSE 
I=I+1:GOTO 5060 

IF VV=4 THEN LOCATE 22,3:COLOR 7,4:PRINT 
"INPUT ERROR! "sBEEP:FOR I=1 TO 5000:NEXT 
I:GOTO 5060 , 

V(1)=VAL(OBE$(I)) 

IF V(I)<0O THEN BEEP: LOCATE 22,3:COLOR 
7,4:PRINT" INPUT ERROR ! "s:FOR J=1 TO 2500 
:NEXT J:GOSUB 600:GOTO 5060 

IF I<K THEN I=1I+1:GOTO 5060 

LOCATE 22,3:COLOR 7,4:PRINT "DO YOU WISH TO 
CORRECT ? (Y/N)";:GOSUB 7000: 

IF V$="Y" OR V$="y" THEN GOSUB 7100:GOTO 5050 
ELSE IF V$="N" OR V$="n" THEN GOSUB 7100:GOTO 
5170 ELSE BEEP:GOTO 5140 

IF V$="Y" OR V$="y" THEN 5050 

RETURN 

REM ### ADATBEVITEL ### 

IF X<1 OR X>25 THEN 6100 

IF Y<1l OR Y>80 THEN 6100 

IF T=3 THEN H=8:H1=0 

IF H=0 THEN 6100 

IF T=1 THEN IF H1<0 OR H1>=H-1 THEN 6100 ELSE 
6060 GOTO 6110 

IF H1=0 THEN Ti=0 ELSE T1=H-H1 

IF T<l1 OR T>3 THEN 6100 

GOTO 6110 

VV=4:GOTO 6790 

JJ=0:LOCATE X,Y,1:COLOR 0,3:PRINT FF$: LOCATE 
X,Y:L=1 

D$S$=INKEY$:IF D$="" THEN 6120 

IF ASC(D$)=0 THEN 6150 

IF D$=CHR$(27) THEN VV=1:GOTO 6790 ELSE 6290 
D=ASC(MID$(D$,2,1)) 

IF D=71 THEN JJ=1:L=1:LOCATE X,Y:GOTO 6120 

IF D=72 THEN VV=2:FG$="FEL":GOTO 6280 


IF D=75 THEN IF L=1 THEN 6120 ELSE JJ=1:L=L- 


1:GOTO 6230 

IF D=77 THEN IF L=H THEN 6120 ELSE 
JJ=1:L=L+1:GOTO 6230 

IF D=79 THEN JJ=1:L=H: LOCATE X,Y+L-1:GOTO 612C 
IF D=80 THEN VV=3:FG$="LE":GOTO 6280 

BEEP:GOTO 6120 

IF T=3 THEN 6260 

IF L=T1l THEN IF D=77 THEN L=L+1 ELSE L=L-1 
LOCATE X,Y+L-1:GOTO 6120 

IF L=3 OR L=6 THEN IF D=77 THEN L=L+l1 ELSE 


L=L-1 6270 GOTO 6250 


6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 


6380 
6390 
6400 
6410 
6420 


6430 
6440 
6450 


6460 
6470 
6480 
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IF T=1 THEN 6580 ELSE 6790 

ON T GOTO 6300,5660,6700 

IF D$>="0" AND D$<="9" THEN 6340 

IF D$="." THEN 6490 

IF DS=CHR$(13) THEN 6570 

BEEP:GOTO 6120 

IF JJ=0 THEN FF$=SPACE$(H) ELSE 6370 
IF T1<>0 THEN MIDS(FF$,T1,1)="." 
LOCATE X,Y:PRINT FF$:LOCATE X,Y 
JJ=1:PRINT D3; :MIDS‘¥Y3,L,1)=D$:L=L+1:1F L=T1 
THEN L=L+1:PRiNT "."; 

IF L>H TEEN L=H:BEEP:LOCATE X,Y+L-1 
GOTO 6120 

IF T1=0 THEN J2=H ELSE J2=T1-1 
J1=0:FOR UU=1 TO J2 


IF J1=0 THEN IF MIDS(FFS,UU,1)=" " THEN 6449 
ELSE J1=1:G0T0O €i40 

IF MIDS(FFS$,UU,1)=" " THEN 6450 

NEXT UU 


UU=UU-1: MIDS (FES, 1,J2)=SPACES(J2- 

UU) +LEPTS(Fr3,UU): RETURN 

IF T1=0 TEEN L=H:SEE9:GOTO 6245 
MID$S(FF3,7T1+2,H1)= SoRENGs (IL ,"O"'):L=T1it+1 
LOCATE X,Y:PRINT FFS > RETURN 


7300 


7310 


7320 


IF JJ=0 THEN FES=SPACES(H):IF T1<>0 THEN 
MIDS(FFS, T1-1,HL+2)=cTRINGS(H1+2,"0"): 
MIDS(TFS,Ti,1l)="."2L 


O CATE X,Y: ORIS iT 

FRE :LCCate X, Yat: LoeTl+i:JJ=1:GOTO 6120 65C0 
GOSUB 6590:GOSUB 6460:LOCATE X,Y+L-1:GOTO 6120 
GOSUB 6400:GOSUB 6480 

IF T1=0 THEN 6560 

GOTO 6540 

FOR UU=H TO T1l+1 STEP -1:IF MID$(FF$,UU,1)=" 
"THEN MID$(FF$,UU,1)="0" 

NEXT UU:LOCATE X,Y:PRINT FF$ 

RoiiURN 

GOSUB 6510:VV=0:GOTO 6790 

GOSUB 6510:GOTO 6790 

IF T1<>0 THEN IF L>T1l THEN L=Tl 

J1=0:FOR UU=1 TO L-1 


IF J1l=0 THEN IF MID$(FF$,UU,1)=" " THEN 6630 
ELSE J1=1:GOTO 6630 

IF MID$(FFS,UU,1)="_" THEN 6640 

NEXT UU 


IF T1=0 THEN J2=H ELSE J2=T1-1 
UU=UU-1:MID$(FF$,1,J2)=SPACE$(J2- 
UU)+LEFT$(FF$,UU) :RETURN 

IF D$=CHR$(13) THEN VV=0:GOTO 6790 
PRINT D$; :MID$(FF$,L,1)=D$ 

IF L=H THEN BEEP: LOCATE X,Y+L-1 ELSE L=L+1l 
GOTO 6120 

IF D$=CHR$(13) THEN VV=0:GOTO 6790 

IF D$<"0" OR D$>"9" THEN BEEP:GOTO 6120 
IF JJ=0 THEN FFS$=SPACE$(8):JJ=1: LOCATE 
X,Y:PRINT FF$:LOCATE X,Y 

PRINT D$; :MID$S(FF$,L,1)=D$ 

IF L=H THEN BEEP:GOTO 6770 

L=L+1 

IF L=3 OR L=6 THEN L=L+1:LOCATE X,Y+L-1 
LOCATE X,Y+L~1 

GOTO 6120 

COLOR 7,0:RETURN 


V$S=INKEY$:1IF V$="" THEN 7000 ELSE RETURN 
LOCATE 22,3:COLOR 7,0:PRINT SPC(76):RETURN 
FOR I=4 TO 20 : LOCATE I,3:PRINT SPC(76):NEXT 
I: RETURN 


LOCATE 13,3:PRINT "Select Alloy Type:": LOCATE 
15,5:PRINT "AL. (AP201, AP501, [Si<1]).= 1" 
LOCATE i8,5:PRINT "AL. (AS303, [ Si 3.5-6%] ) 
= 2":LOCATE 17,5:PRINT "AL. (BP401, [Si 10- 
13.53]) = 3": LOCATE 18,5:PRINT "ALUMINIUM 
BRONZE OR BRASS = 4" 

LOCATE 13,38:PRINT "Select Risering/Gating 
Metnod :":LOCATE 15,40:PRINT "Top Gated Design 
=1":LOCATE 16,40:PRINT "Side Gated Design 
=Z2":LOCATE 17,46:°R INT "Bottom Gated Design 
=3" 


LOCATE 18,4C:PRI NT "Flat Casting & 
Horizontal Gate = 4" 

LOCATE 19, 9:PRINT "Your choice"; : LOCATE 
19,22:R =INPUTS(1}):RLi=VAL(R1S) 


IF Rli<l OR Ril>4 THIN EEEP:GOTO 7326 ELS= 
LCCATE 19,22:?PRINT Mil 

LOCATE 19,44:2?RINT " Your 

choice"; : LOCATE 19,€4:R2$=INPUT$(1):R12=VAL 


TF Ri2<O OR R12>3 THEN BEEP: GOTO 72330 ELSE 
LOCATE 19,64:PNIN? Rize+i 

LOCATS 2) :PRINT "DO YOU WISH TO CORRECT ? 
(Y/N)"s 2 D0lcl TFG0G: 

LF VS="Y" OR Vs="y" THEN LOCATE 22,3:PRINT 
S?C(323:G7TOQO 3259 ELSE IF V3="N" OR VS=a"n" THEN 
buss ESSP:GoTo 7349 

IF V3s"Y" CR Vg="y" THEM 350 

FOR I=6 TO 19:LOCHTE I,3:PRINT SPC(74):NEXT 

I: RETURN 


20000 


20002 
20005 


20010 
20020 
20022 
20024 
20030 
20040 
20050 


20060 
20070 


20071 


20080 


20085 


20090 
20095 
20100 
20500 
20550 


20560 
20562 


20563 


21000 
21005 


21010 
21020 


21200 


REM x** keret készitdé *** SCREEN DISPLAY *** 
SAVE: PWORD.BAS 

KEY OFF:COLOR 1,0 

CLS: DATUM$=MID$(DATE$,4,2)+"."+LEFT$(DATE$, 2) 
44 RIGHT $(DATE$,4)+"." 

PRINT ; STRING$(78,196);" 

PRINT "|";STRING$(78,32);"|" 

PRINT " SPRINGS (78.32) ¢" 

PRINT "|";STRING$(78,32);" 

PRINT "F";STRING$(78,205);"4 " 

FOR PCI=1 TO 15 : PRINT 

"1" STRING$(78,32);"|":NEXT PCI 

PRINT "FE";STRING$(78,205);" 

PRINT “| STRINGS (78,32) 7° |* 

PRINT "L";STRING$(78,196);°i" 

LOCATE 2,2:COLOR 7,4:PRINT " ": LOCATE 
3,2:COLOR 2,7:PRINT " ": LOCATE 
4,2:COLOR 7,2:PRINT " ns 

LOCATE 2,23 :COLOR 0,2:PRINT " Gravity 
die design program ";LOCATE 3,15:PRINT " 
for the design of feed system and sprue. 
"sLOCATE 4,28:PRINT " ": 

LOCATE 2,70:COLOR 4,0:PRINT " BETA ":LOCATE 
3,70:COLOR 7,0:PRINT "SYDNEY": LOCATE 
4,68:COLOR 2,0:PRINT ""DATUMS"" 

COLOR 0,7:LOCATE 21,35:PRINT " Messages: 
":COLOR 7,0 

COLOR 7,4:LOCATE 22,8:PRINT "Scroll: U/D 
Arzrows,Selection: RETURN Back to 

home: Esc"; : 

REM RETURN 

LOCATE 10,15:COLOR 14,0:PRINT "Type in 
Password! "-:LOCATE 10,35:AS=INPUTS(5) 
P$="dukai" 

IF A$<>P$ THEN PU=PU+1 ELSE 21000 

IF FU=3 THEN LOCATE 15,20:COLOR 14,1:PRINT 
"Sorry this is not the password ! 

"sLOCATE 17,30:PRINT "I will terminate the 
run":FOR I=1 TO 15C00:NEXT I:CLS: SYSTEM 

IF PU<>3 THEN LOCATE 15,15:COLOR 14,1:PRINT 
"Wrong passwora ! You have ";3-PU;" iore 
chence ! "s3:FOR I=1 TO 15000:NEXT I:LOCATE 
15,15:CCUOR 7,0:PRINT SPC(50):GOTO 20500 

REM *“** Program Start *** 

LCCATE 10,15 : PRINT SPC(18):LCCATE 8,8:PRINT 
"CONSULT THE UCEN'S MANUAL TO D&STERMINE:" 

> LOCATE 10,i0:F BINT "=| Alloy Salection 
Choice": LOCATE 11,10:PRINT "-Pouring 
Methods": 

LOTETE 12,10 :PRINT "- Feed System & Casting 
Gasmetry" 

COLOR 0,7: LOCATE 21,35:PRINT " MESSAGES: 
"sCOLOR 7,0 ' 

COLOR 7,4: LOCATE 22,3:PRINT "PLEASE SWITCd ON 
YCUR PRINTER PRESS RETURN TO 
CONTINUS "3:GOSJ3B 7000: A=ASC(V$E):IF A=13 THEN 
COSUB 7idO:COLGR 7,0:GOTO 21200 ELSE 
BEEP:CTTO 213°°00 21369 FOR T=3 TO 12:LOCATE 
I,S:PainT SPCC4C (NEXT IT: RETURN 
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Gravity die design program BETA 
for the design of feed system and sprue. SYDNEY 
15.11.1994. 


SPRUE AND POURING CUP HEIGHT HA mm .............- : 
DISTANCE FROM CENTRE OF GATE TO TOP OF CAVITY mm. : 
NET HEIGHT OF THE CASTING mm...-.+-2--see00eee0- 
THINNEST SIGNIFICANT WALL THICKNESS <om.......... : 
NET CASTING WEIGHT Qos cea eae eee 6 See oe ieee eS : 
WEIGHT OF SPRUE AND POURING CUP gQ .... see eee eee ee’ 
WELGH? OF RUNNERS Qf ac news sw ee we See ee ee : 
WEILGHT OF RESERS (PEEBDERS) 9 22.5605 cess sees a ; 
OTHER MASS PAST GATE NOT INCLUDED ABOVE g ......: 


OOOO 0 0000 
oO 
(7) 


QO. 
le. 
a 
3 
4. 
an 
Gr 
1 
8. 


== MESSAGES: 


Gravity die design program 


for the design of feed system and sprue. SYDNEY 
Hs aad ie ese Lo 

DATE TS. i. 19S4 . 
COMPONENT NAME OR ID. Small Acme 
PART NUMBER AS/009 
CUSTOMER'S REF. Proj.9411 
ORDER NUMBER E-567 
Select Alloy Type: Select Risering/Gating Method: 


Abe CAPZOl, APSOl, [Si<l)]) = 2 Top Gated Design = 1 
AL. (AS303, [ Si 3.5-6%] ) = 2 Side Gated Design = 2 
AL. (BP401, [Si 10-13.5%]) = 3 Bottom Gated Design = eS 
ALUMINIUM BRONZE OR’ BRASS = 4 Flat Casting & Horizontal Gate = 4 
Your choice 2 YOur <“Ghoxvee a 
———-—— MESSAGES: 


DO YOU WISH TO CORRECT ? (Y/N) 


Gravity die design program BETA 
for the design of feed system and sprue. SYDNEY 
15.11.1994. 


CONSULT THE USER'S MANUAL TO DETERMINE: 


~ Alloy Selection Choice 
- Pouring Methods 
- Feed System & Casting Geometry 


SS SSS SSS MESSAGES: a ee eS | 
PLEASE SWITCH ON YOUR PRINTER PRESS RETURN TO CONTINUE 


Gravity die design program BETA 
for the design of feed system and sprue. SYDNEY 
1S 510.1994. 


I 


Type in Password! 


= Messages: 


Scroll: U/D Arrows, Selection: RETURN Back to home:Esc 


END OF ARTICLE Sfccerame 
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REGIONAL GROUP 
REPORTS 


Meeting Summary For MARCH 


Central Coast 11/03/95 Saratoga 


Glebe 09/03/95 Glebe 
Hunter Valley 05/03 12/03/95 
[Illawarra 07/03/95 Keiraville 
Liverpool 07/04/95 Yagoona West 
Sutherland 17/03/95 Jannall 

RK so arpa a assesses sre rl lst rst Sa se=kxX 


CENTRAL COAST Regional Group 
Regular meetings are normally held on the second 
Saturday of each month, 6.30pm at the home of John 
Goulton, 34 Mimosa Ave., Saratoga, (043) 69 3990. 
Contact Russell Welham (043)92 4000. 
GLEBE Regional Group 

Regular neetings are normally on the Thursday evening 
following the first Saturday of the month, at 8pm at 43 
Boyce Street, Glebe. Contact Mike Slattery, (02) 692 
$162. 


HUNTER VALLEY Regional Group 

The Meetings are usually held on the second or third 
Sunday of each month at members homes starting at 3pn. 
Check the location with Geoff Phillips by leaving a 
message on (049) 428 617. Please note that the previous 
phone number (049) 428 176 is now used exclusively by 
the ZZAP BBS which also has TI support. Geoff. 
- 


x 


em ee ee me meme ee wee eee ee ee ee es ee ee i 


ILLAWARRA Regional Group 

Regular meetings are normally held on the first Tuesday 
of each month after the TIsHUG Sydney meeting at 7.30pn, 
at the hone of Geoff Trott, 20 Robsons Road, Keiraville. 
A variety of investigations take place at our meetings, 
including Word Processing, Spreadsheets and hardware 
repairs. Contact Geoff Trott on (042) 29 6629 for nore 
infornation. 

RAsoo moms sr assseasssrssssssszzassssaaa=a=kt 

k LIVERPOOL Regional Group * 

Regular meeting date is the Friday 

folling the TIshug Sydney meeting at 7.30 pm. Contact 
Larry Saunders (02) 644-7377 (hone). After 9.30 PM or 
at work (02)602 3312 Liquorland Liverpool West for nore 
infornation. 


ee ALL WELCOME #¥E 
10th Harch 1995 NO MEETING 


7th 2pril 1995 
My Place : 34 Colechin st. Yagoona West 


Bye for now Larry. 
Liverpool Regional Co-Ordinator 
kk assssacccssssssresnn--2---5--=5=-2--ks 


TISHUG NEWS DIGEST 


SUTHERLAND Regional Group 
Regular meetings are held on the third Friday of each 
nonth at the home of Peter Young, 51 Jannali Avenue, 
Jannali at 7.30pm. Peter Young. 


TISHUG in Sydney 
Monthly meetings start promptly at 2pn on the first 
Saturday of the month. They are held at the MEADOWBANK 
PRIMARY SCHOOL, on the corner of Thistle Street and 
Belnore Street, Meadowbank. Cars can enter fron Gale 
Street and park in the school grounds. Regular itens 
include news from the directors, the publications 


library, the shop, and demonstrations of nonthly 
software. 


MARCH MEETING - 4rd MARCH 


APRIL MEETING - 1st APRIL 
LECCE LITE Leceee cere reeeerrecr rere rect 2: 


The cut-off dates for submitting articles 
to the Editor for the TND via the BBS or otherwise are: 


APRIL - 11th MARCH 


These dates are all Saturdays and there is no guarantee 
that they will make the magazine unless they are 
uploaded by 6:00 pm, at the latest. Longer articles 
should be to hand well before the above dates to ensure 
there is time to edit then. 


RERERRRRRERIRER ERIS SOO OTS 
EKER EKER RRR RERER IRE REE RII 


MARCH MEETING 


Welcone to 1995. In our March meeting, for the IBM 
users there will be a CD ROM denonstration. 

For the TI users there will be a display on the 80 
column card as well as the latest Funnelweb 5.00, this 
is the place to be next meeting, If you are having 
problens with your 80 col. card or would like to talk 
about the new updated funnelweb edition or even if you 
want to just watch and see what this card can do please 
cone and join in, the more the merrier. 


March 1995 


